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I- INTRODUCTION 

This document contains detailed descriptions and source 
listings of the programs which reside in the partioned data 
set BSLLIB, These programs provide certain basic functions 
which the BSL programmer will find useful when testing his 
programs under OS/3 60, 

The BSL programmer uses these functions by invoking them in 
a BSL CALL statement. The library programs he requests are 
automatically included in the object program during the 
linkage editing process, when the user employs the cataloged 
procedure BSLALG. (If the user does not employ BSLALG, he 
should provide the LINKAGE EDITOR with a SYSLIB DD card for 
the BSLLIB when he linkage edits his program.) 

The facilities provided by these library programs should not 
be regarded as part of the BSL language. The output of the 
BSL compiler is independent of any particular operating 
environment, but the library programs will function only 
under Operating System/360. They are provided as a 
convenience for BSL users who work under OS/360, but their 
use is purely optional, since they are invoked only by means 
of the BSL CALL statement. The user is at liberty to use 
other means to obtain the same services, such as macros 
within GENERATE statements. 
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I I . BSL OBJE CT TIME I NPUT/OUTPUT 

!• Function 

This program employs the OS/360 QSAM access method to 
provide basic input/output services. The user requests 
these services by invoking the module using the entry 
name associated with the function he desires, i.e. 
(READ, PRINT, PUNCH, CLOSE) . 

2 • Entry points and functions 

There are four entry points to the module which perform 
the following functions: 

A. READ 

This entry point will cause a logical record to be 
read into the area which the user passed as an 
argument. Data is read from the data set with the 
DD name BSLIN. The user may specify DCB 
parameters for RECFM, LREGL, BLKSIZE, and BUFNO on 
the DD card for BSLIN. Values needed for these 
parameters are set using the following defaults: 

RECFM=F, LRECL=80, BLKSIZE=80, BUFN0=3. 

These default values will cause an 80 byte record 
to be read into the area specified by the user. 
When using the catalogued procedure BSLALG, the 
user should use the DDNAME GO. BSLIN to refer to 
this data set. 

B. PRINT 

This entry point will cause a logical record to be 
written out from the area which the user passed as 
an argument. Data is written out on the data set 
with the DD name BSLOUT. The user may specify DCB 
parameters for RECFM, LRECL, BLKSIZE, and BUFNO on 
the DD card for BSLOUT. Values needed for these 
parameters are set using the following defaults. 

RECFM=FA, LRECL=121, BLKSIZE=121, BUFN0=3. 

These default values will cause a 121 character 
record to be written out with the assumption that 
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the first character is an ASA carriage control 
character. When the user employs the catalogued 
procedure BSLALG, he need not supply this DD 
statement. Note: the default values for BSLOUT 
will be used. 

C. PUNCH 

This entry point will cause a logical record to be 
written out from the area which the user passed as 
an argument. Data is written out on the data set 
with the DD name BSLPUNCH. The user may specify 
DCB parameters for RECFM, LRECL, BLKSIZE, and 
BUFNO on the DD card for BSLPUNCH. Values needed 
for these parameters are set using the following 
defaults: 

RECFM=F, LRECL=80, BLKSIZE=80, BUFN0=3. 

These default values will cause an 80 byte record 
to be written out from the area which the user 
passed as an argument. When the user employes the 
catalogued procedure BSLALG, he need not supply 
this DD statement. Note: the default values for 
BSLPUNCH will be used. 

D. CLOSE 

This entry point will close the data set with the 
DD name BSLOUT. 

^- Error condition s detected by BSL Object Time 
Inpu t /Output 

This module detects a number of erroneous conditions. 
When such conditions are detected, the following 
actions are taken: 

A. An error code is set in the variable EOF. This 
code can be interrogated in the users program by 
accessing EOF, (a variable which he has declared 
FIXED (31) NONLOCAL) . 

B. A diagnostic message is written on BSLOUT. If 
this data set cannot be opened, the message is 
displayed on the system console. Control is 
returned to the caller. 
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The following table summarizes the actions taken by the 
module: 



Condition 


SCF Value 


Message 


End of file 
on BSLIN 


1 


None, 


No DD statement 
for BSLIN 


2 


Message on BSLOUT, 

No DD statement for BSLIN. It 

cannot be opened. 


No DD state- 
ments for BSLIN 
and BSLOUT 


8 


Message on console. 

No DD statement for BSLOUT and 

BSLIN. They cannot be opened. 


I/O error on 
BSLIN 


16 


Message on BSLOUT. 

Error on BSLIN. Data is not 

transmitted. 


I/O error on 
BSLIN and no 
DD for BSLOUT 


6 a 


Message on Console. 

No DD statement for BSLOUT and 

error on BSLIN. 


No DD state- 
ment for 
BSLPUNCH 


3 


Message on BSLOUT. 

No DD statement for BSLPUNCH- It 

cannot be opened. 


No DD state- 
ments for 
BSLPUNCH and 
BSLOUT 


12 


Message on Console. 

No DD statement for BSLOUT and 

BSLPUNCH. They cannot be opened. 


i/6 error on 
BSLPUNCH 


2A 


Message on BSLOUT. 

Error on BSLPUNCH. Data is not 

transmitted. 


I/O error on 
BSLPUNCH and no 
DD for BSLOUT 


96 


Message on Console. 

No DD statement for BSLOUT and 

error on BSLPUNCH. 


No DD statement 
for BSLOUT 


4 


Message on Console. 

No DD statement for BSLOUT. 


I/O error on 

BSLOUT 


20 


Message on BSLOUT. 

Error on BSLOUT. Data is not 

transmitted. 
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Sample use of BSL I/O 

This program will reproduce 10 cards and list them 
starting at the top of a page, with a blank line 
between each card. 

RE PRO: PROC; 

DCL OUTLINE CHAR (121 K* /♦OUTPUT LINE*/ 

DCL INCARD CHAR (80) BASED (ADDR (OUTLINE) +1) ; 

/♦INPUT CARD IMAGE ♦/ 

DCL PUNCHOUT CHAR (80) BASED (ADDR (OUTLINE) +1) ; 

/♦ PUNCH IMAGE ♦/ 

/♦ NOTICE THAT INCARD AND PUNCHOUT ARE OVERLAYED ♦/ 

/♦ ON OUTLINE ♦/ 

OUTLINE = 'l'; /♦ SET CARRIAGE CONTROL TO PAGE ♦/ 

/♦ AND BLANK BUFFER ♦/ 

TIME =1; 

DO 1=1 TO 10 BY 1; 

IF TIME -5=1 THEN OUTLINE (1)='0«; /♦ SET CARRIAGE */ 
/♦ CONTROL TO SKIP A LINE ♦/ 
ELSE TIME=2; 

CALL READ (INCARD) ; /♦ READ A CARD ♦/ 
DCL EOF FIXED (31) NONLOCAL; 
IF E0F=16 THEN RETURN; 
/♦ TEST FOR I/O ERROR ON BSLIN ♦/ 
CALL PRINT (OUTLINE) ; /♦PRINT A LINE ♦/ 
IF EOF =20 THEN RETURN; 
/♦ TEST FOR I/O ERROR ON BSLOUT ♦/ 
CALL PUNCH (PUNCHOUT) ; 
IF EOF=24 THEN RETURN; 
/♦ TEST FOR I/O ERROR ON BSLPUNCH ♦/ 
END; 
END REPRO; 
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0001 READ:PROC(PARMlJ; 

0002 /* ENTRY POINT TO READ A CARD*/ 
DCL(R3 RE6(3),R1 REG(I),RO REG(0),V REG(4) 

** W05 ** POSSIBLE CONFLICT IN USE OF REGISTER 
** W05 ** POSSIBLE CONFLICT IN USE OF REGISTER 

0003 DCL(P1 REG(6),P2 REG(7) , M REG( 5) ) PTR(31); 

0004 DCL EOF FIXED(31) LOCAL EXTERNAL; 

0005 DCL (CAR0IN»LIN0UT,CRD0UT)CHAR(92) NONLOCAL INTERNAL; 

0006 DCL(01,02,03) LABEL NONLOCAL INTERNAL; 

0007 DCL OFLAGS BIT(8) BASED(Pl); 

0008 RESTRICT(3,4,5t6,7) ; 

0009 M=2; 

0010 Pl=ADDR(CARDIN)+48; 

0011 P2=AD0R(01); /* POINT TO ARG LIST TO OPEN BSLIN*/ 

0012 GO TO COMMON; 



)PTR(31); 
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0013 PRINT:ENTRY(PARM1) ; 

0014 /* ENTRY TO PRINT A LINE*/ 

M = 4; 

0015 Pl=AD0R(LINGUT)+48; 

0016 P2=AD0R(03) ;/*POINT TO ARG LIST TO OPEN BSLOUT*/ 

0017 GO TO COMMON; 
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0018 PUNCH:ENTRY(PARM1) ; 

0019 /* ENTRY TC PUNCH A CARD*/ 

PI=AD0R(CRD0UT)+A8; 

0020 M=3; 

0021 P2=ADDR(02) ;/*PCINT TO ARG LIST TO OPEN BSLPUNCH*/ 

0022 GO TO CC^MON; 
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0C23 CLOSE:ENTRY; 

0024 /* ENTRY TO CLOSE BSLOUT*/ 

GEN(CLOSE (LINOUT)); /* CLOSE PRINT FILE*/ 

0025 RETURN; 

0026 CCMMON:EOF=0; 

0027 SWITCH=0; 

0028 V=M; 

0029 IF M=A THEN PRS=4; 

0031 ELSE PPS=0; 

0032 /* SET PRINT SWITCH FOR OPEN EXIT*/ 

R3=AD0R(PARM1); 

0033 Li: IF QFLAGS ( A) = • 1 • R THEN GO TO PUTl; 

0035 R1=P2; /* SET UP OPEN*/ 

0036 GEN(SVC 19);/*ISSUE CPEN SVC*/ 

0037 DCL MESS CHAR(121) INIT('lNO OD STATEMENT FOR BSL IT CANNOT BE 
OPENED* ) ; 

0038 nTEST:IF OFL AGS ( A ) = ' • B THEN IF V=4 THEN GO TC NODDl; 
0041 ELSE GO TO FRR6; 
00A2 OUTI: IF SWlTCh=l THEN GO TC BACK4; 

0044 R0=R3; 

0045 F0R0UT:Rl=Pl-48; /* PCINT TO DCB*/ 

0046 GEN(L 15,48(0,1)); /* POINT TC I/C ROUTINE*/ 

0047 GENCBALR 14,15); 

0048 RETURN; /* GO BACK TO CALLER*/ 

0049 BACK4: EOF=V; /* SET RETURN CODE*/ 

0050 IF V=2 THEN DO; 

0052 MESSi[25:29) = ' IN •;/*SET UP MFSSAGF*/ 

0053 Xl:R0=ADDR(MESS) ; /*FOR BSLIN MISSING OD*/ 
no54 GO TO ERRQUT; 

00"}^ END; 

iri'i^.t IF V=3 THEN DC; 

OO'^o MESS( 25: 29) ='PUNCH« ; 

OC-S /* SET UP MESSAGE FCk MISSING UD Ff^R PSL PUNCH*/ 

GC TO XI ; 

0060 END; 

0061 DCL SYMESS CHAR(121) INIK'LEKk'^R CN PSL CATA IS NOT TRANSMITT 
ED' ) ; 

P062 IF V=20 THEN DO; 

(;fV4 SYMFSS(14:18)='0UT ' ; /*S YlMCHRGNOUS ERROR*/ 

0065 X2:R0=AD0R( SYMESS) ; /* ON BSLOUT*/ 

rnft GO TO FRPOUT; 

0067 END; 

0G6P IF V=16 THEN DP; /« S YN'CHRC NOUS ERROR CN BSLIN*/ 

0070 SYMfcSS( 14: 10) = ' IN ' ; 

P0 7 1 GO rr X2; 

no 7 2 END: 

007-^ IF v=24 THEN DO ; / * SYNC HRCNOUS FRROR DN BSLPUNCH*/ 

COT'S SYMFSS( 14: 18)^« PUNCH' : 

nci^ GO TO x2; 

Of 7 7 FND; 
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0078 

0079 
0080 
0081 
0083 
0084 
0085 
0086 
0088 
0089 
0090 
0091 
0093 
0094 
0095 
C096 
0098 
C099 
0100 
0101 
0102 



/♦ROUTINE TO WRITE ON CONSOLE*/ 

ERRS: E0F=V*4; 
DCL BAD LABEL NONLOCAL INTERNAL; 



NOODl: 

GEN; 
SAD KTO 



DCL BADN CHAR(34» BASED( ADOR( BAD) +36) ; 
IF V=2 THEN 00; /*N0 DO FOR BSLOUT AND IN*/ 
BADN=«AND BSLIN. THEY CANNOT BE OPENED'; 

GO TO BAD; 

END; 
IF V=3 THEN DO;/* NO DO BSLOUT AND PUNCH*/ 

BADN='AND BSLPUNCH.THEY CANNOT BE OPENED"; 

GO TO BAD; 

END; 
IF V=16 THEN DO; 

BADN=«AND ERROR ON BSLIN'; 

GO TO BAD; 

END; 
IF V,= 24 THEN DO; 

BADN='AND ERROR ON BSLPUNCH* ; 

GO TO BAD; 

END; 
BADN=' «; 

•NO DD STATEMENT FOR BSLOUT 



0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0114 
0115 
0116 
0117 
0118 

0119 
0120 
0121 
0122 
0123 
0124 



$ENDGEN 

RETURN; 

ABEND: E0F=1; 

RETURN; 

READERR: V==16; 

GO TO XXX; 

PRNTERR: V==20; 



/* SET END OF FILE ON BSLIN*/ 



PNCHERR! 



ERR6: 
XXX: 



GO TO XXX; 

V==24; 

GO TO XXX; 

IF SV«ITCH=0 THEN DO; 

SWITCH=l; 
Pl=ADDR(LIN0UT)+48; 
P2=ADDR(03) ; 
PRS=4; " 
/* SET PRINT SWITCH FOR OPEN EXIT*/ 
GO TO Ll; 



ELSE 



END; 



END; 
DO; 

SWITCH=0 ; 
GO TO ERR5; 



GEN! 
CARDIN 



LINOUT 



CRDOUT 



01 
02 



DCB 



DCB 



DCB 



OPEN 
OPEN 



DSORG=PS,MACRF=(GM) tDONAME=BSLIN.BFTEK=S,BFALN=F, . X 

E0DAD=ABEN0,EXLST=0PERR,SYNAC=REAPERR,ER0PT=ACC 

DSORG=PS,MACRF=(PM) , DDNAME=BSL0UT7 BFTEK=S, BFALN=F, X 

EXLST=OPERRf SYNAD=PRNTERR,EROPT=ACC 

DSORG=PStMACRF=(PM) ,DDNAME=BSLPUNCH, BFTEK=S, BFALN=F, X 

EXLST=OPERR,SYNAD=PNCHERR,EROPT=ACC 

(CARDIN, (INPUT, REREAD) )»MF=L 

(CRDOUT, (OUTPUT, REREAD) ) ,MF=L 
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03 OPEN (LINCUT, (OUTPUT, REREAD)) ,MF=rL 

DS OF 

OPERR DC 1X«85« 

DC AL3(CEXIT) 

SENDGEN 
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012! 



0126 
0127 
0128 
0129 
0130 



0131 
0133 
0134 
0135 

ri37 



D(Rl+36) ; 
ASED(Rl+20); 
) eASED(Rl+62) 
) BASED(Rl+82) 



/* THIS PROCEDURE SUPPLI 
SUPPLIED BY THE 
OEX1[T:PROC; 
DCL DCBRECFM BIT(8) BASE 
DCL OCBBUFNO PTR(8) B 
DCL OCBBLKSI FIXED(15 
DCL DCBLRECL FIXEDdS 
DCL I POOLD FIXED(31) , 

2 VBUFNO FIXED( 15» , 
2 VLRECL FIXED(15) ; 
IF 0CBRECFM( l:2) = «0(J'B THEN DO; 
DCBRECFM=« lOllllll'BeOCBRECFM; 
DCBRECFf^=' 10000000 'Bl DCBRECFM; 
/* RECFM IS SET TO FIXED*/ 
IF PRS=4 THEN DO; 
/* IF PRINT FILE THEN M 
DCBRECFM=« 11111101 



ES DCB PARAMETERS WHEN THEY ARE NOT 
CALLER*/ 



AKE IT HAVE ASA CNTRL CHAR*/ 
•BCDCBRECFM; 



0138 


DCBRECFM=«0C0( 


DOlOO" 


•BIDCBRECFM; 


0139 




END; 


I 


OlAO 






END; 


OlAI 


IF DCBBLKSI=0 


THEN 


DO;/* IS BLKSIZE SET*/ 


01A3 


IF PRS=4 THEN 


DO; 




0145 


DCBRLKSI=121; 






0146 


DCBLRECL=121; 






C147 


VLRECL=I21; 






0148 


R 0=121; 






€14"; 






END; 


0150 


ELSF 




DO; 


0151 


CCRBLKSI=80; 






0152 


DC8LRECL=80; 






0153 


VLRECL=80; 






0154 






END; 


0155 


IF DC8BUFN0=0 


THEN 


CC; 


C157 


/* CHECK TO SEE IF 


BUFNO IS SPECIF [ED*/ 




CCBBUFNC=3; 






C158 


VBUFN0=3; 






0159 






END; 


016C 


FLSE 




DC; 


0161 


VBUFNO=CCBBUFNO; 




0162 






END; 


016? 


PO=PnCLD; 






0164 


GEN(GETPnOL ( 1 ),( 


lO) ; 


/*OBTAIN SPACE FCR BUFFERS*/ 


0165 


RETURN; 






0166 






END; 


0167 


IF DCBLRECL=0 


THEN 


CCBLRECL=DCRBLKSI ; 


169 


RETURN; 






017C 


FND; 






C171 


END; 
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nCL'D IN 
104 

43 

79 
80 



23 



12 



128 



127 



129 



126 



BSL OBJECT 
NAME 
ABEND 

BACK4 

BAD 

BADN 



CARDIN 



CLOSE 



CCMMON 



CROCUT 



DCBBLKSI 



DCBBUFMO 



CC6LRFCL 



rCRRECFM 



EOF 
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ATTRIBUTE AND CROSS REFERENCE TABLE 

STATIC, LOCAL, LABEL, INTERNAL 
lOA 

STATIC, LOCAL, LABEL, INTERNAL 
43, 49 

STATIC, NONLOCAL, LABEL, INTERNAL 
80, 84, 89, 94, 99 

BASED, rHARACTER<34) , INTERNAL, BCUNDARY ( BYTE , 1 ) 
83, 88, 93, 98, 101 

STATIC, NONLCCAL, CHARACTER ( 92 ) , INTERNAL, BCUNDARY ( BYTE, 1 ) 
10 

STATIC, NONLOCAL, ENTRY, EXTERNAL 
23 

STATIC, LOCAL, LABEL, INTERNAL 
12, 17, 22, 26 

STATIC, NONLCCAL, CHARACTER (92 ) , INTERNAL, BOUNDARY( BYTE, 1 ) 
19 

BASED, (-IXE0(15>, INTERNAL, BCUNDARY ( HWORD, 1 ) 
141, 145, 151, 168 

BASED, PCINTER(8), INTERNAL, BOUNDARY ( BYT E, 1 ) 
155, 157, 161 

BASED, FIXED(15), INTERNAL, BCUNDARY ( HifjORD, 1 ) 
146, 152, 167, 168 

BASED, PIT(8), INTERNAL, BOUNCAR Y( BYT E , 1 I 

131, 133, 133, 133, 134, 134, 134, 137, 137, 137, 138, 138, 138 

STATIC, LOCAL, FIXFD(31), EXTFRNAL, BCUNDARY ( WORD, 1 ) 
26, 49, 78, 104 



ERRCLT 



STATIC, LOCAL, LAPEL, IMFKNAL 
45, 54, 66 



ERR^ 



STATIC, LOCAL, LABEL, INTFkNAL 
78, 122 



41 



FRR6 



STATIC, LOCAL, LABEL, INTERNAL 
41, 112 



L INCUT 



STATIC, NONLCCAL, CH AR ACT FR ( <12 ) , INTERNAL, BCUND AR Y ( B YTE, 1 ) 
15, 115 



'-<3 



LI 



STATIC, LOCAL, LABEL, INTERNAL 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

33» 118 

3 M REGISTER(5)» PCINTER(31), INTERNAL, BOUNDARY ( WORO» 1 ) 

9, 14, 20, 28, 29 

37 MESS STATIC, LOCAL, CHARACTER( 121 ) , INTERNAL, BOUNDARY ( BYTE, 1 ) 

52, 53, 58 

40 NODDl STATIC, LOCAL, LABEL, INTERNAL 

4C, 101 

125 OEXIT STATIC, LOCAL, ENTRY, INTERNAL 

125 

7 OFLAGS BASED, BIT(8), INTERNAL, BOUNDARY! BYTE, 1 ) 

33, 36 

38 OTEST STATIC, LOCAL, LABEL, INTERNAL 

38 

34 OUTl STATIC, LOCAL, LABEL, INTERNAL 

3^, 42 

6 ni STATIC, NONLOCAL, LABEL, INTERNAL 

11 

6 0? STATIC, NONLOCAL, LABEL, INTERNAL 

21 

6 03 STATIC, NONLOCAL, LABEL, INTERNAL 

16, 116 

1 PARMl PARAMETER, FIXED(31), INTERNAL, BOUNDARY ( WORD , 1 ) 

13, 18, 32 

110 PNCHERR STATIC, LOCAL, LABEL, INTERNAL 

110 

130 POOLD STRUCTURE, STATIC, LOCAL, FIXE0(?1), INTERNAL, POUNOARYI WORD, 1 ) 

163 

1? PRINT STATIC, NONLOCAL, ENTRY, EXTERNAL 

13 

108 PRNTERR STATIC, LOCAL, LABEL, INTERNAL 

1C8 

30 PRS STATIC, LOCAL, FIXED(31), INTERNAL, BOUNDARY (WORD , 1 ) 

30, 31, 117, 135, 143 

18 PUNCH STATIC, NONLOCAL, ENTRY, EXTERNAL 

18 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

3 PI REGISTER(6), FCINTEROI), INTERNAL, BCUNDARY ( WORD, 1 ) 

7, lOt 15, 19, 45, 115 

3 P2 REGISTER(7), PCINTEROl), INTERNAL, BCUNDARY ( WORD , 1 ) 

11, 16, 21, 35, 116 

1 READ STATIC, NONLOCAL, ENTRY, EXTERNAL 

1 

106 READFRR STATIC, LOCAL, LABEL, INTERNAL 

106 

2 RO REGISTER(O), P0INTER(31), INTERNAL, BOUNDARY ( WORD, 1 ) 

44, 53, 65, 148, 163 

2 Rl REGISTER(l), PCINTER(31), INTERNAL, BCUNDARY ( WORD , 1 ) 

35, 45, 126, 127, 12R, 129 

2 R3 REGISTER(3), PCINTER(31), INTERNAL, BOUND ARY ( WORD, 1 ) 

32, 44 

27 SWITCH STATIC, LOCAL, FIXED(31I, INTERNAL, BCUNDARY ( WORD , 1 ) 

27, 42, 112, 114, 121 

61 SYVFSS STATIC, LOCAL, CH AR ACTER ( 12 1 ) , INTERNAL, BOUNDARY ( BYT E, 1 ) 

64, 65, 70, 75 

2 V REGISTER(4), PCINTER(31), INTERNAL, BCUNDARY ( WORD, 1 ) 

28, 39, 49, 50, 56, 62, 68, 73, 78, 81, 86, 91, 96, 106, 108, 110 

1-^0 VPUFNO IN POOLD, FIXED(15), INTERNAL, BOUND ARY ( HWORG , 1 ) 

158, 161 

130 VLPECL IN POOLD, FIXEC(15), INTERNAL, BOUND ARY ( HWORD , 1 ) 

147, 153 

107 XXX STATIC, LOCAL, LABEL, INTERNAL 

1C7, 109, 111, 114 

53 XI STATIC, LOCAL, LABEL, INTERNAL 

5^, 59 

65 X2 STATIC, LOCAL, LAPEL, INTEKNAL 

65, 71, 76 

*** PROC. READ FAD 002 ERRORS 
*** THE FOLLOWING STATEMENT(S) HAD ERRORS 
0002,0002 
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III. PDUMP ROUriNE 



Function 



This BSL program allows the user to obtain "snap shot 
dumps" of his BSL program in any one of three formats. 
The module employs the PRINT entry point in the BSL 
object time I/O routine to produce its output. 

How to use PDUMP 

The user invokes the PDUMP program passing it a series 
of arguments. These arguments are grouped into triples 
and are used as follows: 

A. The first argument is a one character value which 
indicates the output format required. The 
allowable formats are: 



TYPE CODES 



CODE 


TYPE 


FORMAT 


•A' 

•B' 


hexadecimal 


A String of characters made up of 
digits 0-9 and A-F 


Bit string 


A string of character ones and zeros 
surrounded by quotes and followed by 
the letter B. 


•c* 


Character 
string 


A string of EBCDIC characters sur- 
rounded by quotes. 



b. The second argument is the name of the bbL 
variable to be displayed. 

C. The third argument is a full word quantity which 
contains the length of the item to be displayed: 

Length = length in bits for a oit string 

length in characters for a character 

string 

length in bytes for a hexadecimal item 
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D. The final argument to the PDLJMP program must be 
the character ■*•, This character indicates the 
end of the list of items to be dumped. (The PDUMP 
program accepts var iabl e length argument lists.) 

E. The maximum number of arguments allowed in a CA.LL 
statement is 25. However, the user may pass the 
PDUMP program a greater number by building his own 
argument list (see the BSL User's Guide). 

3 • O utp ut format produced by PDUMP 

The PDUMP program will skip to a new page each time it 
is invoiced (called) and produce a new page with the 
heading 'PDUMP REQUESTED'. As each item is displayed 
it will: 

A. Have its starting location displayed on a new line 
as follows: 



B. 



'LOCATION XXXXXXX CONTAINS' 

Its value will start on a new line and continue 
over as many lines as is required to display it. 



4 . ERROR con ditions detected by PDU MP 

The PDUMP program detects three possible error 
conditions. if^hen these conditions are encountered, a 
message is written on BSLOUT and control is returned to 
the calling program (note that any remaining arguments 
are ignored) . 



Error Message and Ca 


uses 


MESSAGE 


CAUSE 


'ILLEGAL TYPE SPECIFICATION 


A type code other than 'A', 


NO DUMP PRODUCED' 


'B', or 'C, has been en- 




countered (check to see if 




you have omitted the end of 




list character '*'). 


' ILLEGAL ADDRESS OR 


The length of the item to be 


LENGTH SPECIFICATION' 


dumped was not contained in a 




full word quantity or an ille- 




gal address was passed to PDUHy 




(the argument list is incorrect) . 

L , _ 
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^ • S ample U se of PDUMP 

X:PROC; 
DCL h CHAR(5) INIT ('FRANKMr B FIXED (15) 
INITIAL (3), C FIXED (31) INITIAL (15) ; 
DCL 81(8) BIT (8) , INIT ( (8) ' 00000000' B) ? 
L3=6U; 

CALL PDUMPCC ,A,5, •A',B,2,' A' ,C,4,'B',B1,L3, •♦') ; 

END X; 
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0001 PDUMPrPROCEDURE; 

0002 DCL Rl PTR(32) REG(l); 
C003 DCL RSAVE PTR(32) ; 

0004 RSAVE=R1; 

0005 DCL XXAPICA FIXEOOl); 

0006 DCL RDUM FIXEDOl) ; 

0007 DCL BOOC CHARd), BOOB PTP(8); 

0008 DCL T2 PTR(8) ; 



0009 


GEN; 






ST 


2, RDUM 




CNOP 


2'^ 




LA 


l,*+12 




BALR 


1,1 




DC 


R'OOOOllll' 




DC 


AL3(ERR) 




DC 


B'Olllllll' 




DC 


B'llllllll' 




SVC 


14 




SENDGEN 




0010 


RESTRICT(2) ; 


€011 


GEN; 






BALR 


2,0 




SRL 


2,24 




ST 


1, XXAPICA 




STC 


2, XXAPICA 




L 


2, RDUM 



$ENDGEN 

0012 RELEASE(2); 

0013 nCL 1 ARG CTL(RSAVF), 

(2PT, /*TYPE*/ 
2 PA, /*ADDRESS*/ 
2 PL) PTR(31>; /*LENGTH IN BITS OR BYTES*/ 

0014 DCL BUF CHAR( 121) ; 

0015 DCL(01,G2,Q^,P5,P4) PTR ( 31 ) , TRAN ( 16 ) CHAR ( 1) I NIT I AL ( • 0' , ' 1' , 

•2','3','4',«5«,'6','7','8',«9','A',«B','C«,'D',«E«,'F'); 

0016 DCL BYTECON CTL(Gl) PTR(8),TYPE CTL(Q?) CHAR(1),LEN CTL(Q3) 
FIXFD( 31) ; 

0017 DCL AOUMP PIT(32),L90 LABEL; 
OOIR BUF=« •; /* CLEAR BUFFER*/ 

0019 NARG=l; /*SFT ARGUMENT COUNT */ 

0020 LINFCT=0; /*LINF COUNT S^T TO 7ER0*/ 

0021 Sl=l; /*PDUMP INITIALIZE SWITCH */ 

0022 BUF( 1: 1) = ' 1« : /* SET UP PUT PAGE*/ 

0023 RUF(2: 16)='PDUMP RFQUESTFD'; 

0024 CALL PRINT(BUF) ; 

0025 Q2=PT; /* POINT TO TYPE*/ 

0026 LINECT=LINECT+1; /* BUMP LINF COUNT*/ 

0027 LSTART:IF TYPE='*' THEN GO TO EPI;/* fNO OF LIST*/ 

C029 AOUMP=PA; /*POINT TO ADDRESS TO CONVFRT */ 

0030 Q1 = ADDR(ADUMP) ; 

0031 BUF=' '; 
U032 P5 = ADDR(L90) ; 

0033 GO TO L6; /* CHECK PAGE STATUS*/ 

0034 L90: BUF ( 2: 27 )=• LOCATION CONTAINS'; 
G035 K=ll; 
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0036 
0037 
0038 
0039 
OOAO 
0041 
O0A3 
0045 
0047 
0048 
0049 
0050 
0052 
0053 
0054 
0055 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
O065 
0067 
0069 
0070 
0071 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
O081 
0082 
0083 
0084 
CO 8 5 
0086 
0087 
€088 
0090 
0091 
0092 
0093 
0094 
0095 
0098 
0099 
0100 
0101 



M=18; 

DCL L91 LABEL; 
P4=ADDR(L9I) ; 
GO TO cci; 
L91: Q1=PA; /* POINT TO ITEM */ 

03=PL; /* POINT TO LENGTH*/ TIME=1; 
IF LEN<=0 THEN GO TO ERRl; 
IF TYPE='B' THEN 00; 

TLEN=LEN+3; /*LENGTH OF BIT STRING*/ 

GO TO rl; 

,END; 

else if type='c' then do; 

tlen=len+2; /*lfngth of char string*/ 

GO TO RL; 

END; 
ELSE IF TYPE=«E' THEN DC; 

TLEN=LEN; 
GO TO RL; 

END; 

ELSE DO; 

TLEN=2*LEN; 
GO TO RL; 
END; 
DCL NEXT LABEL; 
RL: IF TYPE='E' THEN DC; 
IF TLeN<=120 THEN GO TC TL2; 
ELSE GO TO TL3; 
END; 

IF TLEN<120 THEN DC; 
TL2: ; 

P4=AnDR(NEXT) ; 

FIT=0; /* ITEM FITS ON SINGLE LINE */ 

GO TO Pi; 

END; 



ELSE DO; 



TL3; 



TLEN=TLEN-120; 

P4=A0DR(RL); /* ITEM REQUIRFS PRINT LOOP */ 



FIT=1; 

GO TO PI; 
END; 
Pi: BUF=' •; 

DCL L7 LABEL} 
P5=ADDR(L7) ; 
L6: IF Sl=l THEN DO; 

S1 = 0; 
BUF( 1) = «F0«X; 



ELSE on; 
BUF( 1: 1) = « 1«; 



LINECT=LINECT+2; 

GO TC P5; 
END; 
IF LINECT=55 THEN DO; 
LINECT=l; 

GO TO P5; 
END; 
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0102 ELSE DO; 

0103 BUF(l:l}='40'X; 

0104 LINECT=LINECT+l; 

0105 GO TO P5; 

0106 END; 

0107 END; 

0108 L7:IF TYPE='A' THEN GO TO CONVERT; /* BRANCH ARITH*/ 

0110 ELSE IF TYPE=«P' THEN GO TO CONVERT; /* BRANCH PTR */ 

0112 ELSE IF TYPE='B' THEN GO TO BCONT; /* BRANCH BIT*/ 

0114 ELSE IF TYPE=«C' THEN GO TO LCHAR; 

0116 ELSE IF TYPE=«E' THEN GO TO TL; 

0118 ELSE GO TO ERROR; 

0119 LCHAR: IF TIME=1 THEN DO; /* MUST PLACE IN FIRST' */ 

0121 TIME=0; 

0122 BUF(2:2) = " • • ; 

0123 K=3; 

0124 GO TC FF; 
012? END; 

0126 ELSE 00; 

0127 TL:; 

0128 K=2; 

0129 GO TO FF; END; 
0131 FF: IF FIT=0 THFN M=TLEN; 

0133 ELSE M=121; 

0134 CCL J REG(8) FIXED(31); 

0135 RESTRICT(8); 

0136 DO J = K TO M BY 1 ; 

0137 BUF( J)=8YTFC0N; 

013P Ql=01+l; 

0139 END; 

0140 IF FIT=0 THEN 00; 
0142 IF TYPE='E' THEN GO TO FFl; 

0144 CCL CRUO CHAR( 1) ; 

0145 CRUD=""; 

0146 BUF(J)=CRUD; 

0147 FFl:CALL PRINT(BUF); 

0148 GC TG P4; 
014*= END; 

0150 ELSE GO TO FFl ; 

0151 CONVERT: IF FIT=0 THEN 00; 

0153 K=2; 

0154 M=TLFN+l; 

0155 GO TO CCl; 

0156 END; 

0157 ELSE DC; 

0158 K=2; 

0159 M=121; 

0160 GO TO CCl; 

0161 END; 
01^2 CCl: on J=K TO M BY 1; 
01^3 BTEMP=0; 

0164 BTEMP=BYTECnN; 

0165 BTEMP = BTEMp (, 'FO'X; /* CCNVFRT HEX 4 BITS AT A TIME */ 

0166 BTEMP = PTEMP/16 ; 

0167 BTEMP=RTEMP+l; 
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0168 


BUF(J>=TRAN(BTEyP) ; 


0169 


BTEMP=0; 


0170 


BTEMP=BYTECON; 


0171 


J=j+l; 


0172 


BTEMP=BTEMP£«OF'X; 


0173 


BTEMP=BTEMP+1; 


017A 


BUF(J)=TRAN(BTEMP); 


0175 


Ql=Ql+l; 


0176 


END; 


0177 


CALL PRINT(BUF); 


0178 


GO TO P4; 


0179 


BCONT:IF TIME=1 THEN IF FIT=0 


0182 




0183 




0184 


C0UNT=TLEN-3; 


0185 


J = 3; 


0186 


K=TLFN; 


0187 


GO TO TTl; 


C188 


END; 


0189 




0190 


TIME=0; 


0191 


HIST=1; 


C1Q2 




0193 


COLNT^UO; 


0194 


J=3; 


0195 


K=121; 


0196 


GO TO TTl; 


0197 


END; 


0198 


ELSE IF FIT=0 THEN DC; 


O200 


BUF( 2)=Bonc; 


0201 


J = 3; 


0202 


CQUNT=TLFN-3; 


02C3 


HIST=0; 


0204 


IF COUNT=0 THEN GO TO DONE; 


0206 


ELSE DO; 


0207 


K=TLEN; 


0208 


GO TO TTl; 


020<5 


END; 


0210 


END; 


0211 


ELSE PO; 


0212 


BUF(2)=B00C; 


0213 


J=3; 


0214 


COUNT=llo; 


0215 


K=121; 


0216 


GO TO TTl; 


0217 


END; 


0218 


DCL MASK BITCB) ; 


0219 


DCL Tl PTR(e); 


0220 


TTl: IF J>= K THEN GO TC DONE; 


0222 


ELSE DO; 


0223 


IF CnUNT<=8 THEM DC; 


0225 


L00P1=C0UNT; 


0226 


MASK='80«X; 


0227 


END; 


0228 


ELSE DO; 



TIME=0; 
BUF(2)=«« • •; 



ELSE DO; 
BUF(2) = «" • ; 
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0229 L00P1=8; 

0230 MASK='SO'X; 

0231 END; 

0232 T2=BYTEC0N; 

0233 DO 1=1 TO LOOPl BY 1; 

0234 T1=T2£MASK; 

0235 IF TI=0 THEN BUF ( J ) = • FO • X ; 

0237 ELSE BUF ( J )= • F 1 • X ; 

0238 MASK=MASK/2; 

0239 J=J+l; 

0240 END; 

0241 Q1=Q1+1; 

0242 COUNT=COUNT-a; 

0243 GO TO TTl; 

0244 END; 

0245 DONE: IF FIT=0 THEN DO; 

0247 BUF{J)=«»»'; 

0248 J=J+l; 

0249 BUF(J)='B'; 

0250 TT2:CALL PRINT(BUF); 

0251 GO TO P4; 

0252 END; 

0253 ELSE 00; 

0254 IF HIST=1 THFN DO; 

0256 PnOB=BYTFCONGMASK; 

0257 IF B00B=0 THEN BOOC='F0'X; 

0259 ELSE B00C='F1'X; 

0260 GO TO TT2; 

0261 END; 

0262 ELSE GO TO TT2; 

0263 END; 

0264 NEXT:R£AVE=PSAVE+12; 

0265 NARG=NARG+l; 

0266 02=PT; 

0267 IF NARG=I01 THEN GC TO EPI; 

0269 ELSE GO TO LSTART; 

0270 ERROR: RUF= ' 1 IL LEGAL TYPE SPECIFICATION NC DUMP PROCUCEC; 

0271 CALL PRINT(BUF); 

0272 BUF=« •; 

02''3 CALL PRINT(eUF); 

C?74 GO TO FPI; 

<.275 GEN(USING * , 1 "^ ) ; 

0276 ERP:GEN(L 11, CAP) ; 

0277 GENIBC 15,LUMI; 

0278 GEN(DS OF); 

0279 CAP:GEN(DC A ( PDU'^P + 6 ) ) ; 

0280 LUM:GEN{LA 13,aSAV001); 
^281 GENiDROP 151; 

0282 EPRl: PUF=' IILLFGAL LENGTH OR ADCRFSS SP FC I F IC AT I ON • : 

02«^ CALL PRINT(BUF) ; 

0284 BUF=' ': 

0285 CALL PRINT(BUF); 

0286 EPI:GEN( ST 2,R0UM) ; 

0287 GENdC 2,XXAPICA); 
02PS GEN(SLL 2,24); 
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0289 GEN(MVI XXAPICA , X« 00 • ) ; 

O2<30 GENd IfXXAPICA ) ; 

0291 6EN(SVC 14); 

0292 GEN(SPM 2); 

0293 GEN(L 2,RDUM); 

0294 RETURN; 

0295 END; 
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BS 


DCL'D IN 


NAME 


17 


ADUMP 


13 


ARG 


113 


BCD NT 
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ATTRIBUTE AND CROSS REFERENCE TABLE 

STATIC, LOCAL, BIT(32>, INTERNAL, BOUNDARY ( BYTE, 1 ) 
29, 30 

STRUCTURE, BASED, CHARACTER ( 12 ) , INTERNAL, BOUNDARY ( WORD, 1 ) 

STATIC, LOCAL, LABEL, INTERNAL 
113, 179 

7 BOCB STATIC, LOCAL, POINTERO), INTERNAL, BOUNDARY( BYTE, 1 ) 

256, 257 

7 BOnC STATIC, LOCAL, CHARACTERCl), INTERNAL, BOUNDARY ( BYTE, 1 ) 

200, 212, 258, 259 

1^3 BTEMP STATIC, LOCAL, FIXED(31), INTERNAL, BOUNDARY ( WORD, 1 ) 

163, 164, 165, 165, 166, 166, 167, 167, 168, 169, 170, 172, 172, 173, 173, 174 

14 BUF STATIC, LOCAL, CHARACTE R ( 12 1 ) , INTERNAL, BCUNCAR Y( BYTE, 1 ) 

18, 22, 23, 24, 31, 34, 85, 91, 99, 103, 122, 137, 146, 147, 168, 174, 177, 183 
192, 200, 212, 236, 237, 247, 249, 250, 270, 271, 272, 273, 262, 283, 284, 285 

16 BYTECON BASED, P0INTEP(8), INTERNAL, PCUNOARY ( BYT F, 1 ) 

137, 164, 170, 232, 256 

27^ CAP STATIC, LOCAL, LAPEL, INTERNAL 

270 

3° CCl STATIC, LOCAL, LABEL, INTERNAL 

39, 155, 160, It,2 

109 COMVF^IT STATIC, LOCAL, LABFL, INTERNAL 

109, 111, 151 

184 COUNT STATIC, LOCAL, FIXFD(31), INTEkNAL, BCUNDARY ( WORD , 1 ) 

184, 193, 202, 204, 214, ;^23, 225, 242, 242 

144 CkUn STATIC, LOCAL, CHAR AC TF k ( I ) , INTERNAL, BOUND AKY ( BYT F , 1 ) 

145, 146 

2^5 DONE STATIC, LOCAL, LABEL, INTtRNAL 

205, 221, ?45 

28 EPI STATIC, LOCAL, LABEL, INTERNAL 

28, 268, 274, 28b 

276 EP=^ STATIC, LOCAL, LABEL, INTERNAL 

276 

UP ERROR STATIC, LOCAL, LABEL, INTERNAL 

118, 270 

44 ERKl STATIC, LOCAL, LABFL, INTERNAL 
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DCL'D IN NAf^E ATTRIBUTE AND CROSS REFERENCE TABLE 

4'!ft 2 82 

l?A FF STATIC, LOCAL, LABEL, INTERNAL 

12A, 129, 131 

1A3 FFl STATIC, LOCAL, LABEL, INTERNAL 

143, 147, 150 

75 FIT STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNDARY ( WORD , 1 ) 

75, 82, 131, 140, 151, 180, 198, 245 

191 HIST STATIC, LOCAL, FIXE0(31), INTERNAL, BOUNDARY (WORD, 1 ) 

191, 203, 254 

233 I STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNDARY ( WORD , 1 ) 

233 

134 J REGISTER{8), FIXED(31», INTERNAL, BCUNDARY < WORD, 1 ) 

136, 137, 146, 162, 168, 171, 171, 174, 185, 194, 201, 213, 220, 236, 237, 239 
239, 247, 248, 248, 249 

35 K STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNDARY ( WORD, 1 ) 

35, 123, 12B, 136, 153, 158, 162, 186, 195, 207, 215, 220 

115 LCHAR STATIC, LOCAL, LABEL, INTERNAL 

115, 119 

16 LEN BASED, ^IXEDOl), INTERNAL, BOUNDARY ( WORD, 1 ) 

43, 47, 52, 57, 61 

?C LINECT STATIC, LOCAL, FIXE0(31), INTERNAL, BCUNDARY ( WOPC , 1 ) 

20, 26, 26, 92, 92, 96, 9B, 104, 104 

225 LOnPl STATIC, LOCAL, FIXED(31), INTERNAL, BCUNDARY ( WORD, 1) 

225, 229, 233 

27 LSTART STATIC, LOCAL, LABEL, INTERNAL 

27, ?69 

2P0 LUM STATIC, LOCAL, LABEL, INTERNAL 

2 80 

^3 L6 STATIC, LOCAL, LABEL, INTERNAL 

3 3, 88 

P6 L7 STATIC, LOCAL, LABEL, INTERNAL 

87, 108 

17 L90 STATIC, LOCAL, LABEL, INTERNAL 

32, 34 

37 L91 STATIC, LOCAL, LABEL, INTERNAL 

38, 4 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

36 M STATIC, LOCAL, FIXEDOI), INTERNAL, BOUNDARY(WORD, I) 

36, 132, 133, 136, 154, 159, 162 

218 MASK STATIC, LOCAL, BIT(8), INTERNAL, BOUNDARY ( BYTE, 1 ) 

226, 230, 234, 238, 238, 256 

19 NARG STATIC, LOCAL, FIXED(31), INTERNAL, BOUNDARY (WORD, 1 ) 

19, 265, 265, 267 

64 NEXT STATIC, LOCAL, LABEL, INTERNAL 

74, 264 

13 PA IN ARG, P0INTEP(3iy, INTERNAL, BCUNOARY ( WORD, 1 ) 

29, 40 

1 PDUMP STATIC, NONLOCAL, ENTRY, EXTERNAL 

1 

13 PL IN ARG, P0INTEP(31), INTERNAL, BOUNDARY ( WORD, 1 ) 

41 

2A PRINT STATIC, NONLOCAL, ENTRY, EXTERNAL 

2A, 147, 177, 250, 271, 273, 283, 285 

13 PT IN APG, PaiNTER(31), INTERNAL, BOUNDARY ( WORD , 1 ) 

25, 266 

76 PI STATIC, LOCAL, LABEL, INTERNAL 

76, 83, 85 

15 P4 STATIC, LOCAL, PC I KTE R( 3 1 ) , INTERNAL, BCUNDARY ( WORD, 1 ) 

38, 7A, 81, 148, 178, 251 

15 PS STATIC, LOCAL, PCINTEk(31), INTERNAL, BOUNDAP Y ( WORD, 1 ) 

32, 87, 93, ICO, 105 

l'^ Ql STATIC, LOCAL, PGINTFROl), INTERNAL, BCUNCARY ( WORD, 1 ) 

16, 30, 40, 13P, 138, 175, 175, 241, 241 

15 Q2 STATIC, LOCAL, PCINTEPOl), (^TFRNAL, BCUND AR Y ( WORD, 1 ) 

16, 25, 266 

IS Q3 STATIC, LOCAL, PCINTER(3l), INTERNAL, BCUNDAP Y { WO RD , 1 ) 

16, 41 

6 RDUM STATIC, LOCAL, FIXFDOl), INTr^NAL, BOUNDARY ( WORD , 1 ) 

A8 RL STATIC, LOCAL, LABEL, INTERNAL 

AS, 53, 58, 62, 65, 81 

3 RSAVF STATIC, LCCAL, P0INTER(32>, INTERNAL, B CUNDARY ( WORD , 1 ) 

4, 13, 264, 264 



BSL/' SEPT67 


BS 


DCL'D IN 


NAME 


2 


Rl 


21 


SI 


42 


TIME 
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ATTRIBUTE AND CROSS REFERENCE TABLE 
REGISTER(l), P0rNTER(32), INTERNAL, BCUNDARY( V(0RD,1 ) 

STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNOARY( WORD, 1 ) 
21,. 88, 90 

STATIC, LOCAL, FIXEOOl), INTERNAL, BOUNDARY (WORD, 1 ) 
42, 119, 121, 179, 182, 190 

STATIC, LOCAL, LABEL, INTERNAL 
117, 127 

47 TLEN STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNDARY ( WORD, 1 ) 

47, 52, 57, 61, 67, 71, 80, 80, 132, 154, 184, 186, 202, 207 

68 TL2 STATIC, LOCAL, LABEL, INTERNAL 

68, 73 

69 TL3 STATIC, LOCAL, LABEL, INTERNAL 

69, 79 

15 TRAN (16), STATIC, LOCAL, CHAR ACTEP ( 1 ) , INTERNAL, eOUNOARY( BYT E, 1 ) 

168, 174 

187 TTl STATIC, LOCAL, LABEL, INTERNAL 

187, 196, 208, 216, 220, 243 

250 TT? STATIC, LOCAL, LABEL, INTERNAL 

250, 260, 262 

16 TYPE BASED, CHARACTFR(l), INTERNAL, BOUNDARY ( BYTE, 1 ) 

27, 45, 50, 55, 65, 108, 110, 112, 114, 116, 142 

219 Tl STATIC, LOCAL, PCINTER(8), INTERNAL, BOUNCARY( BYTE, 1 ) 

234, 235 

8 T2 STATIC, LOCAL, PCINTER(8), INTERNAL, BOUNDARY ( BYTE, 1 ) 

232, 234 

5 XXAPICA STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNDARY ( WORD, 1 ) 

*** PROC. PDUMP HAD NO ERRORS 
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IV. SUBSTR 

!• Functio n 

SUBSTR is a program which is written in BSL and 
provides the following facilities for character 
substrings: 

A. Checks the validity of variable substring 
assignments and prevents assignments which are 
illegal, while providing diagnostics. 

B. Provides for truncation or padding in variable 
substring assignments. The length of the 
substring to be moved is determined by taking the 
minimum of the length of the specified target 
substring and the length of the substring defined 
by starting from the beginning point of the target 
substring to the declared string end. If the 
source substring is longer than the target, the 
source is truncated on the right to the size of 
the target before it is assigned. If the source 
string is shorter than the target, it is padded on 
the right with blanks to the size of target 
before it is assigned. 

^ • How to use SUBSTR 

SUBSTR requires nine arguments. They are: 

A. The name of the string to which assignment is to 
be made. This string is called the TARt^ET. If 
the assignment is found to be illegal, then the 
contents of the TARGET variable will be as they 
were on entry to SUBSTR. 

B. The declared length of the TARGET string in 
characters, contained in a full word. This value 
is used for range checking by SUBSTR. 

C. The beginning point of the TARGEI substring. This 
is a full word quantity which indicates the first 
character of the TARGET substring. (SUr STRINGS 
are counted starting from one.) 

D. The end point of the TARGET substring. This is a 
full word quantity which is used tD indicate the 
stopping point of the TARGET sui string. 
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Substrings are moved from the beginning character 
point up to and including the end character point. 

E. The name of the string from which data is to be 
taken. This is called the SOURCE string. 

F. The declared length of the SOURCE string in 
characters, contained in a full word. This 
information is used for range checking by SUBSTR. 

G. The beginning point of the source substring. This 
is a full word quantity which indicates the first 
character of the SOURCE substring. 

H. The end point of the source substring. This is a 
full word quantity which indicates the last 
character of the SOURCE substring. 

I. The last argument is a full word quantity which is 
either 1 or 0. This is used to indicate whether 
errors encountered in the SUBSTR program are to be 
written on the file BSLOUT. If a one is supplied 
both an error code and an error message is 
supplied. If a zero is supplied, the error 
message is suppressed but the error code is set. 

(Note: The messages written by SUBSTR use the 
PRINT entry point of the BSL OBJECT TIME 
INPUT/OUTPUT ROUTINE.) 

3 . ERROR Conditions Detected by SUBSTR 

When SUBSTR detects an illegal assignment, it sets a 
variable EOR (declared EOR FIXED (31) LOCAL EXTERNAL) to 
a value from 1 to 7 and optionally prints out a 
diagnostic. The following table lists the error 
messages put out by SUBSTR and the value set in EOR. 

(Note SUBSTR has its own error handling routine which 
in turn uses ERRINT another member of the BSLLIB.) 
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SUBSTR ERROR CONDITIONS 



MESSAGE (on BSLOUT) 


EOR Value 


Explanation 


LOWER BOUND ON TARGET LESS 
THAN 1 


1 


The substring begin 
point on the target 
is less than one. 


UPPER BOUND ON TARGET LESS 
THAN LOWER 


2 


The substring end point 
on the target is less 
than the substring 
begin point. 


LOWER BOUND ON SOURCE LESS 
THAN 1 


3 


The substring begin 
point on the source is 
less than one. 


UPPER BOUND ON SOURCE 
LESS THAN LOWER 


^ 


The substring end 
point of the source is 
less than the substring 
begin point. 
The substring Degin 
point on the target is 
at a point which is 
past the end of the 
target string. 

The substring begin 
point on the source is 
at a point which is 
past the end of the 
source string. 


LOWER BOUND G.T. DCL'D 
LENGTH OF TARGET 


5 


LOWER BOUND G.T. DCL'D 
LENGTH OF SOURCE 


6 


ILLEGAL ARGUMENT TO SUBSTR 

PGM * (This message is not 
suppressed by having the 
ninth argument to SUBSTR 
set to zero. It always 
appears.) 


7 


This message indicates 

that one of the nine 
arguments to the SUBSTR 
program is illegal and 
has caused a program 
check. 



The programmer can test the value of EOR on retui. n from 
SUBSTR. If the value is 0, then the assignment was carried 
out. If the value is not zero, then its value is (1-7) and 
will indicate the error type. 
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a. Sample Use of SUBSTR 

DCL h CHAR (10) INir('ABCDEFGHIJ') # B CHAR (5) ; 
B=" •; 1=1; J=5; K=l; M=5; 
CALL SUBSTR (A,10, I, J, B, 5,K,M, 1) ; 
Result is: A=« FGHIJ' 

Notes 

A. Size of TARGET substring is 5 characters. 

B. Size of SOURCE substring is 5 characters. 

C. The result of the BSL statement A(I;J| = B(K:M); 
is the same as SUBSTR. 

DCL C2 CHAR (200), C3 CHAR (3) ; 

DO 1=1 TO 200; 

C2(I) =«A'; 
END; 

C3="RST«; 

1=3; 

J=200; 

K=3; 

M=3 ; 
CALL SUBSTR(C2,200,I,J,C3,3,K,M,1) ; 
Result is: 'AAT 197 blanks 

Notes 

A. The TARGET substring is 198 characters long. 

B. The SOUBICE substring is 1 character long. 

C. The SOURCE substring should be padded right with 
197 BLANKS. 

D. The result of the BSL statement: 

C2 (I: J) = C3 (K:M) ; 
would be to move 198 characters from the 3rd 
position of C3. 

DCL C4 CHAR(5) INITIAL (• 12345 •) , C5 CHAR (6) INIT (• ABCDEF*) ; 
1=2; 
J=5; 
K=l; 
M=6; 

CALL SUBSTR(C4,5,I,J,C5,6,K,M,1) ; 

Result is: 
•lABCD' 
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Note s 

A. TARGE! substring is 4 characters long. 

B. SOURCE substring is 6 characters. 

C. SOURCE is greater than the TARGEI therefore it is 
truncated on the right to the size of the TARGET. 

D. The result of the BSL statement C4 (I: J) = Cb (K:M) is 
the same as SUBSTR. 

DCL C7 CHAR (5) INITIAL ('12345M 
1=2 
J=5 
K=3 

M=5 

CALL SUBSTR (C7, 5, I, J, C7 , 5,K, M,l) ; 
Result is: '1345 " 
Note s 

A. TARGET substring is ^ characters. 

B. SOURCE substring is 3 characters. 

C. SOURCE substring is padded right with one blank 
before it is assigned. 

D. The result of the BSL statement C7(I:J^ = C7 (K:M) ; 
would be •1345?" The value depends on what the 
byte following C7 (5) contains. 
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^'^L^r <;FPTfr7 



onoT 
cnn? 
oon? 
Cnn4 
coos 
cnnft 
cnn7 
cnnp 

000° 

coin 
con. 
co\? 



C015 
Cni4 
cr>15 

0017 
COIR 

cni<5 
oo-^i 

C07? 
CO"??, 
C07A. 
007^ 
C077 
CO'>S 
C0?0 
Cn-an 

co-^i 

00^4 
00-^ «! 

CO^(«v 

00^7 
00?0 

Cf>4n 

f 041 
C047 
004'^ 
C04? 
0n4A 
Cr>4-» 
cn4R 
CO^o 

COtSI 
COR? 
00^-^ 
CnK4 
Coc;r 
Cot;(«, 

COS? 

cn«;R 
co«^o 



«^URSTRTNR nBJFCT TTWIF RHUTTMF 

<;UR'^TR:PRnrFDURP(RCVP,nLEWl,STl,<;T2,Sni),nLFM?,5;T3,ST4,VFA): 
nCL MERR FMTRY tTftRCiO) PtR(T|l)! 

nCL PHR FTXFOf^ll LPCAt FXTFRMALs 

FORsO: 

J=l: 

nn T = i RY 1 TO -^0; 

TAB(I)=J5 
T=T+1; 

TABn)=Anr)R(MFRP) ; 

J=J+11 
FMO; 
/* <;FT U» FRPHR HAMOLtMR*/ 

TAH. FRRTNT(15,TAP,11 t 

** woft «* nTMFM«>TnNFn ttfm mot SUR<;rRIOTFn 

nrL(RCVR,<;nU)PTR(^l) ,{nLEM1 »ST1,ST? tnLFM'>,ST'=^,<^T4,YFA) FTXFn(31) 
nCl.(RPTO,<;t>TR)PTR(^l) ; 

RPT>?=AnnR(RCVP) ! 
<;pTR=Anop(snu); 

nCL TARi'^ET CMAP(l) r.THRPTP) »<;nURf F rHAR(H r.THSOTR); 

DCL PUFICFR CHARfl?!) :/* CHFCK TNOTVinilAI <;UPSTPS*/ 
IF <;T1<1 TMFM np; 

Rl)FFFo=t LOWFR PnilMO OM TARGFT L'=SS THAM 1«; 
F<-|Ral; 

o,n TO iLi, 
FMO! 

IF <;t?<'sTi thfm nn; 

pUFFFRs* ll)0PFR QPiiMn ntj TAROFT t.F<;S THAW LHWFR'; 

cops'?; 
f^O TO LI 5 

FMH! 

TF ST'^<1 THFK) HP; 
BUFFFR«' tnvfCD c^nuMO HM <^OURrF LF<;S tham I'j 

cnRa-5(. 

GO TO LI? 

PMH; 
TF «;t4<<?t'^ thfm nn. 
P(jFFFO = » l|)Onco qpilMO OM 
FORa*? 

Rn rn Lis 
FMH! 

TF <;Ti>>niFMi THF^> nn* 

0UFFFR=« L"^w«=R pnUMO <",,T. 
Fno.K; 
GP TO L 1 • 
FMOt 

TF ST-a^TLPN? TMFM nn; 
OUCFFp.t iOWFR "^ni'Mn q.T, 
FHRasf ; 
GO Tn L1 ? 
FMH; 
LEFT1=PLPN1-'^T1 + 1? /*AMnnMT L^^^T TM TAP^FT*/ 
MnvFi=«;T?-«;Tl+l;/*<;T7F np TARGFT <;(iq<;To*/ 
LFFTJ>»nt'=M?_ST^+l;/#AMnnNT LP«=T T N <;n|JRr.F*/ 

MnvF?s«;T4-S''"'^+l ; /* «;t7c hf <;niiRrF <;ijp<;tr*/ 

TF MOVFKxLFFTI THFM TMOVFsMnVFl; 
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•^niiRCF L'^'^y; tham inwFR': 



nrL»«n LENGTH ^f tapcft* 



nf^L'^n LF'^'GTH op <;r«l)RrF': 



^<^\ / f <^FPTi<-7 SURSTRIwr, nP^jFCT TIMF RHUTIMF PAGF ^g 

0061 FLSE TMnVF = LF'^Tl; 

Cn(t,? /* TMOV/F T*; WIN HF SPFf. TftRGPT <;URSTR ANO TARGFT LENGTH*/ 
TF MnVF7<=LFFT? THFN SMnvF=MnvF2 : 

0064 FL«;F SMnVF=LFFT7: 

0065 /* SMOVE MIN HP SPFf SUR?^TP PF SniJRCE ANO <;nURCF LFNGTH*/ 

PAD=0; 

0066 IF TMnVF^<;MnVF THFM HP; /*PAn TARGFT*/ 
On6P OAn=TMnvF+<;TI-T : 

0060 t 5:nSTl=<;Tl: 

0070 n<;T^=sT^: 

007 1 nn r.PUMT=i Rv i tp smpvp; 

00"'? TAPGFT(n<;Tn=snuprF(n<^T-^) : 

007^ nSTi=nsTi+i; 

0074 n<:T^=n<;T'^+i : 

0071^ FMO; 

0076 IF DAn-,= n THFN OP: 

0O7R Fnno=<;T|+c;MnvF ; 

Cn~"^ no L"P'' = '=PPP RV 1 TO PAD; 

Oooo /* RLAMt' TARGPT*/ 

TARGFT(LPPP1=' ': 

onoi FMO; 

OOP? FNO: 

COf>-^ 16: TALL "^opri. ; 

0(^9^ RFTIJPM; 

COR"^ FMH; 

OOP6 fi<;f if <;Mnvp>TMnvF thfn on; 

O0R8 SMOVF=TMnVF; 

00P9 GO TO L5; 

00^0 END; 

0091 ELSE GO TO L5; 

00O2 Ll: IF YEA=0 THEN GO TO L6; 

009A CALL PRINT(BUPFFR) ; 

O0<95 GO TO L6; 

0096 END; 
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SUB 


DCL'D IN 


NAME 


18 


BUFFER 


71 


COUNT 


1 


DLENl 



SUBSTRING OBJECT TIME ROUTINE PAGE 39 

ATTRIBUTE AND CROSS REFFRFNCE TABLE 

STATIC, LOCAL, CHARACTER( 12 1) , INTERNAL, BOUNDARY ( BYTE, 1 ) 
21, 27, 33, 39, 45, 51, 94 

STATIC, LOCAL, FIXED(31), INTERNAL, BOUNDARY (WORD, H 
71 

PARAMETER, FIXE0(31), INTERNAL, BOUNDARY ( WORD, 1 ) 
13, 13, 43, 55 

1 DLFN2 PARAMETER, FIXF0(31), INTERNAL, BOUNDARY ( WORD , 1 ) 

13, 13, 49, 57 

69 DSTl STATIC, LOCAL, EIXED(31), INTERNAL, BCUNOAPY ( WORD, 1 ) 

69, 7?, 73, 73 

70 DST3 STATIC, LOCAL, FIXED(31), INTERNAL, BCUNDARY ( WORD, 1 ) 

70, 72, 74, 74 

3 FOR STATIC, LOCAL, FIXFD(31), EXTERNAL, BOUNDARY (WORD, 1 ) 

4, 22, 28, 34, 40, 46, 52 

83 EROCL STATIC, NONLOCAL, ENTRY, EXTERNAL 

83 

12 FPRINT STATIC, NONLOCAL, ENTRY, EXTEPMAL 

12 

78 F0"o STATIC, LOCAL, EIXED{31), INTERNAL, ROUNP AP Y ( WPRD , I ) 

78, 79 

6 I STATIC, LOCAL, FIXEn(31), INTERNAL, BOUNDARY ( W^Rn, 1) 

6, 7, n, 8, 9 

5 J STATIC, LOCAL, ^ixFOOl), INTFPMAL, BOUNDARY ( WPRH , 1 ) 

5, 7, 10, 10 

55 LEFTl STATIC, LOCAL, PIXED(3n, IN'TFRNAL, ROUND ARY ( t-.n^o, 1 ) 

55, 5Q, 61 

57 LEFT2 STATIC, LOCAL, FIXFOOI), INTERNAL, B rUNDARY ( ^'PRD, 1 ) 

57, 6?, 6A 

79 LOOP STATIC, LOCAL, FIXFD(31), IN'TF^NAL, PCUND AP Y ( WPP T , I ) 

7C), RO 

23 LI STATIC, LOCAL, LAPFL, INTPRnAL 

23, 29, 35, 41, 47, 53, 9? 

69 L5 STATIC, LOCAL, LABFL, INTERNAL 

69, 89, 91 

83 L6 STATIC, LOCAL, LABEL, INTERNAL 
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SU 


OCL'D IN 


NAME 


2 


MERR 


56 


MOVEl 


58 


M0VE2 
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ATTRIBUTE AND CROSS REFERENCE TABLE 
83, <53, 95 

STATIC, NONLOCAL, ENTRY, EXTERNAL 
9 

STATIC, LOCAL, FIXEDOI), INTERNAL, BOUNDARY! WORD, 1) 
56, 59, 60 

STATIC, LOCAL, FIXEDOI), INTERNAL, BOUNDARY (WORD, 1 ) 
58, 62, 63 

65 PAD STATIC, LOCAL, FIXED(3l), INTERNAL, BCUNDARY ( WORD , 1 ) 

65, 68, 76, 79 

9A PRINT STATIC, NONLOCAL, ENTRY, EXTERNAL 

94 

1 RCVR PARAMETER, P0INTER(31), INTERNAL, BOUNDARY (WORD, I ) 

13, 13, 15 

14 RPTR STATIC, LOCAL, P0INTER(31), INTERNAL, BCUNDARY ( WORD, 1 ) 

15, 17 

63 SMDVE STATIC, LOCAL, FIXEDOI), INTERNAL, BCUNDARY ( WORD , 1 ) 

63, 64, 66, 71, 7fl, 86, 88 

1 SOU PARAMETER, P0INTER{31), INTERNAL, BOUNDARY ( WORD, 1 ) 

13, 13, 16 

17 SOURCE BASED, CHAP AC TER ( 1 ) , INTERNAL, BCUNDARY ( BYT E , 1 ) 

7? 

14 SPTR STATIC, LOCAL, POINTFROl), INTERNAL, BCUNDARY (WORD, 1 ) 

It, 17 

1 STl PARAMETER, FIXED(31), INTERNAL, RCUNDARY ( WORC, 1 ) 

13, 13, 19, 25, 43, 55, 56, 6P, 69, 73 

1 ST2 PARAMETER, FIXF0(31), INTERNAL, BOUNDARY ( WORD , 1 ) 

13, 13, 2 5, 56 

1 ST3 PARAMETER, FIXf-3(3l), INTERNAL, P CUNO AKY ( WORD , 1 ) 

13, 13, 31, 37, 49, 57, 58, ^n 

1 ST4 PARAMETER, FIXED(31), INTERNAL, bCUNC ARY ( WORD , 1 ) 

13, 13, 37, 58 

1 SUBSTR STATIC, NONLOCAL, ENTRY, EXTFRNAL 

1 

2 TAB (30), STATIC, LCCAL, PO I NTER ( 3 I ) , INTERNAL, BCUNDARY ( WORD, 1 ) 

7, 9, 12 
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GCL'D IN 
17 



NAME 
TARGET 



ATTRIBUTE AND CROSS REFERENCE TABLE 
BASED, CHARACTER( I) , INTERNAL, BCUNDARY ( BYT E , 1) 
72, 80 



60 



TMOVE 



STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNDARY ( WORD, I) 
60, 61, 66, 68, R6, 88 



YEA 



PARAMETER, FIXEOOl), INTERNAL, BOUNDARY { WORD , I ) 
13, 13, 92 



*** PROC. SUBSTR HAD 001 ERROR 
*** THE FOLLOWING STATEMENT(S) HAD ERRORS 
0012 
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0001 MERR:PROCEDURE(R,X) ; 

0002 DCL EOR FIXEDOl) NGNLOCAL; 

0003 DCL BUF CHAR( 121) ; 

0004 BUF =• ILLEGAL ARGUMENT TO SUBSTR PGM'; 

0005 CALL PRINT(BUF); 

0006 E0R=7; 

0007 GEN(L 15,4(0,1)); 

0008 GEN(L 15,40(0,15)); 
C00<3 GEN(L 13,4(0,15)); 

0010 GENCLM 14,12,12(13)); 

0011 GEN(BCR 15,14); 

0012 END; 
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OCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

3 BUF STATICt LOCAL, CHARACTER ( 12 1 ) , INTERNAL, BOUND ARY ( BYTE, 1 ) 

4, 5 

2 EOR STATIC, NONLOCAL, FIXEDOl), EXTERNAL, BOUNDARY ( WORD, 1 ) 

6 . 

1 MERR STATIC, NONLOCAL, ENTRY, EXTERNAL 

1 

5 PRINT STATIC, NONLOCAL, ENTRY, EXTERNAL 

5 

1 R PARAMETER, FIXEDOl), INTERNAL, BOUNDARY ( WORD , 1 ) 

1 X PARAMETER, FIXEDOl), INTERNAL, BOUNDARY ( WORD , 1 ) 

*** PROC. MERR HAD NO ERRORS 
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V. ERRINT 

!• Functio n 

ERRINT is a program written in BSL which employs the 
SPIE macro to provide the user with a facility similar 
to PL/I ON-UNITS, It allows the BSL programmer to 
handle the 15 possible program interruptions by: 

A- Specifying for all or some of these interruptions, 
external procedures which are to be entered when 
the interrupt occurs. 

B- Providing system action for those interrupts which 
the user does not wish to handle. 

C. Providing the ability to ignore some or all of the 
program interrupts if the user desires. 

^ • tiow to use the ERROR- HANDLER 

In order to specify error handling, the error routine 
must be called using the entry name ERRINT, passing 
three arguments. The three arguments are: 

A. A full word integer which specifies the nuft.ber of 
the 15 possible program interrupts the user wishes 
to handle. 

B- An array of up to 30 quantities each of which is 
declared as PTR (31) . This table should be built 
such that a number code for an interruption is 
followed by either: 

bl) A pointer to the entry point of an external 
procedure. This is the routine which will 
handle the interruption specified by the 
preceding number - 

b2) A '-l' which indicates that the intei ruption 
specified by the preceding number is to be 
ignored. 

b3) A 'O* which indicates that system action is 
required for the interruption specified by 
the preceding number. 
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BUILDIN G AN ARGUMENT LIST FOR ERRINT 

DCL T (6) PTR (31) ; 

T(l) = 4; /♦ CODE FOR PROTECTION INTERRUPTION ♦/ 

DCL (PROl^ZD) ENTRY EXTERNAL; 

/* PROT IS THE PROCEDURE TO HANDLE A PROTECTION ERROR ♦/ 

/* ZD IS THE PROCEDURE TO HANDLE A FIXED POINT 

DIVIDE ERROR */ 

T (2) =ADDR (PROT) ; /♦ INSERT ADDRESS OF PROT INTO 

TABLE ♦/ 

T(3)=9; /♦ CODE FOR FIXED POINT DIVIDE ERROR */ 

T (4) =ADDR (ZD) : /♦ INSERT ADDRESS OF ZD INTO 

TABLE */ 

T(5)=7; /♦ CODE FOR DATA ERROR */ 

T(6)=-l; /♦ INDICATE THAT DATA ERRORS ARE TO BE 

IGNORED */ 

CALL ERRINT (3,T,1) ; 

/♦ THE FIRST ARGUMENT INDICATES THAT 3 ERROR CONDITIONS 

WILL BE HANDLED. THE LAST ARGUMENT INDICATES THAT 

THIS IS THE INITIAL CALL TO ERRINT ♦/ 

C. A full word integer which is either a 1 or not 1. 
If ERRINT has never been called, then a one must 
be specified. This causes initialization of error 
handling by ERRINT and saves the status of 
interruption handling initialized by a prior SPIE 
macro. If a value other than one is specified, it 
is assumed that the user wishes to override error 
handling specified in a previous call to ERRINT. 

D. The error handling routine will use the values 
passed to it to initialize a table called CONTAB. 
This table is defined as CONTAB (15) PTR (31) LOCAL 
EXTERNAL and is formated such that any position in 
it contains the action for the corresponding 
interrupt as defined by the following table: 
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NUMBER INTERRUPTION TYPE 

1 Operation 

2 Privileged Operation 

3 Execute 

4 Protection 

5 Addressing 

6 Specification 

7 Data 

8 Fixed Point Overflow 

9 Fixed Point Divide 

10 Decimal Overflow 

11 Decimal Divide 

12 Exponent Overflow 

13 Exponent Underflow 

14 Significance 

15 Floating-Point Divide 



C ONTAB POSIT I OK 

CONTAB (1) 
CONTAB (2) 
CONTAB (3| 
CONTAB (4) 
CONTAB (5) 
CONTAB (6) 
CONTAB (7) 
CONTAB (8) 
CONTAB (9> 
CONTAB (10) 
CONTAB (11) 
CONTAB (12) 
CONTAB (13) 
CONTAB (14) 
CONTAB (15) 



If the third argument to ERRINT is a one, the 
entire CONTAB table is set to zero before the 
user's list is examined. This allows system 
action to be initialized for those interruptions 
which the user does not wish to handle. If a 
value other than one is specified for the third 
argument, only those values passed by the user are 
used to update the CONTAB. Since each call to the 
error routine causes the value of CONTAB to be 
modified, it is the users responsibility to save 
its status should he wish to restore it to its 
prior value- The table may be stored as follows: 

DCL CONTAB (15) PTR(31) NONLOCAL, SAVE (15) PTR (31) ; 

DO 1=1 to 15; 

SAVE (I) = CONTAB (I) ; 

END; 



E . y^hen the Error-Handler gets Control 

When a program interruption occurs after ERRINT 
has been called, the following action takes place: 
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el) 

e2) 
e3) 



64) 



e5) 



The contents of registers 14-12 are saved 
assuming that register 13 is pointing at the 
save area of the BSL program in 
the point of interruption. 



control at 



The interruption is cleared by the interrupt 
handler- 

If the error routine determines that the 
interruption is to be ignored, it merely 
restores registers and returns control to the 
interrupted program. 

If system action is required, the location 
and type of the interrupt are printed out in 
the data set BSLOUT, and an ABEND dump is 
given. A system action message would be of 
the form Condition at XXXXXX (where XXXXXX is 
the location of the interruption and 
Condition indicates the type of error) . 

If a user routine is to be called, it is 
called by the error handler which passes two 
arguments. These arguments provide the user 
with the status of the machine at the point 
of interruption. The format of the arguments 
passed to the user error routine are as 
follows: 
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Argument 1. DCL 1 PIE BOUNDARY (DWORD) , 

2 PICAA PTR(31) ,/*ADDR OF ERROR HANDLER*/ 
2 OPSWL PTR (31) ,/*LEFT OF PSW AT THE*/ 

/♦POINT OF INTERRUPT*/ 
2 OPSWR PTR (31) , /♦RIGHT OF PSW AT*/ 

/♦THE POINT OF INTERRUPT*/ 
( 2 Rm, /*REGS 14-2 */ 

2 R15 /* AT THE PT OF INTERRUPT */ 

2 RO, 

2 Rl, 

2 R2 ) PTR (31) ; 
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Argument 2. DCL R (12) PTR (31) ; 

Argument 2 contains registers 3-13 at the point of 
interrupt <, and the address of the location where 
the interrupt resume point is stored in the ERROR- 
HANDLER. 

Note: (R (11) will point to the SAVE AREA 

of the interrupted program. R (12) will contain 

the address where the resume point is stored in the 

ERROR-HANDLER.) 



The user routine must return to the ERROR-HANDLER 
by a normal return. When this happens the status 
of the machine will be restored from the save area 
of the interrupted program. The interrupted 
program will resume from the point of interrupt 
(the address where the resume point is stored is 
in R (12) ) . The user routine may also choose not 
to return to the point of interrupt. When the 
user does not wish to resume at the point of 
interruption, he should use R (12) as a pointer to 
reset the resume point and return to the ERROR- 
HANDLER. 

Example 

DCL RETPT LABEL EXTERNAL; 

/♦ RESUME POINT */ 

DCL PI PTR; GOBACK PTR BASED (PI) ; 

P1=R (12) ; /♦ POINT TO SLOT WHERE 
/* RESUME POINT IS STORED ♦/ 

GOBACK=ADDR (RETPT) ; 
/* RESET RESUME POINT TO RETPT ♦/ 

RETURN; /♦ RETURN TO ERROR- HANDLER */ 



R estorin g the interruption handling specified 
before ERRINT is called 

To restore the interrupt action specified before 
ERRINT was called the user should call ERRCL. 
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Special Note ; 

The user should not call ERRINT more than once in 
a given job with a third parameter of one, unless 
he wishes to destroy previous 
interruption handling. 

Data Sets Used by the ERROR HANDLER 



definitions of 



DD NAME 


USE 


BSLOUT 


SYSTEM ACTION MESSAGE 


SYSABEND 


ABEND DUMP 



^ • Errors detected by the ERROR-HANDLER 



There are only two error conditions which 
handler detects. When the CONTAB table is b 
if an interruption code is less than 1 or g 
15 then the message, 'ILLEGAL TYPE IT IS I 
printed out on BSLOUT. Control is retu 
calling program (note that when the CONTAB 
incomplete previous values are in effec 
number of interruptions specified by th 
greater than 15 or less than zero, then 
•INCORRECT ROUTINE COUNT' is written o 
Control is returned to the caller. 



the error 
eing built, 
reater than 
GNORED' is 
rned to the 
tdble is 
t) . If the 
e user is 
the message 
n BSLOUT. 
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'♦• Example of the Use of ERRINT 
TESTC : PROC; 
DCL (PL,P2) ENTRY; /♦ DEFINE ENTRIES OF ROUTINES*/ 

/♦ TO HANDLE FIXED-PT-DIVIDE*/ 

/♦ AND ADDRESSING ERROR ♦/ 
DCL TAB (4) PTR (31) ; /♦ DEFINE USER INTERRUPT */ 

/♦ TABLE ♦/ 
TAB(l) =9; /♦ SET FIXED-PT DIVIDE CODE ♦/ 
TAB (2| = ADDR (PI) ; /♦ ADDR OF ROUTINE TO */ 

/♦ HANDLE FIXED~PT DIVIDE ♦/ 
TAB (3) = 5; /♦ SET ADDRESSING CODE ♦/ 

TAB (4) = ADDR(P2) ; /♦ SET ADDR OF ROUTINE ♦/ 

/♦ TO HANDLE ADDR ERROR ♦/ 

CALL ERRINT ([2,TAB^1) ; Z + INIT ERROR HANDLING */ 

/* FOR FIXED-PT DIVIDE AND ADDRESSING, OTHERS DEFAULT 
TO SYSTEM ACTION */ 

Y = Y/0; /♦ GET ZERO DIVIDE */ 

DCL P5 PTR, BYTCON CHAR (1) CTL (P5) ; 

P5 = -3; /♦ AFTER ZERO DIVIDE NORMAL RETURN */ 

/* FROM ERROR HANDLER COMES TO THIS STATEMENT */ 
/* THIS STATEMENT CAUSES AN ADDR ERROR ♦/ 

DCL L3 LABEL LOCAL EXTERNAL; 

/♦ THIS DEFINES A RETURN POINT TO BE USED ♦/ 

/* BY THE ADDR ROUTINE ♦/ 

BYTCON= 'A'; 
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L3: TAB (2) = -1; /♦ SET UP TO IGNORE DIVIDE ♦/ 

/* ERROR ♦/ 
CALL ERRINT {2, TAB, 0) ; 
PCL CAT ENTRY CTL (P5) ; 
P5 = 1; 
Y = Y/0; 

DCL BUF CHAR (121) LOCAL EXTERNAL; 
/♦ DEFINE MESS BUFFER ♦/, 
BUF= • ZERO DIVIDE IGNORED; 
CALL PRINT (BUF) ; /* CALL TO BSLLIB PGM TO ♦/ 

/* PRINT MESSAGE */ 
CALL CAT; /♦ FORCE SPECIFICATION ABEND ♦/ 
END; 
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PI: PR0C(RR,R2) ; 

DCL BUF CHAR (121) NONLOCAL; 
BUF= • FIXED POINT DIVIDED- 
CALL PRINT (BUF) ; 

RETURN; /♦ ERROR HANDLER RETURNS TO POINT OF */ 
END; /* INTERRUPT */ 
P2; PR0C(RX,R3) ; 

DCL BUF CHAR (121) NONLOCAL; 

DCL L3 LABEL NONLOCAL; /* PLACE I WISH TO BRANCH */ 
DCL 1 RX BDY (D*«ORD) , /* PIE AT INTERRUPT ♦/ 
(2 PICAA PTR(31) , 
2 OPSWL 
2 OPSWR 
2 R14A 
2 R15A 
2 ROA 
2 RlA 

2 R2A ) FIXED (31) ; 
DCL R3 (12) FIXED (31) ; /* REG 3-13 AND */ 

/♦ ADDRESS WHERE RbTURN */ 
/* POINT IS STORED */ 
/* IN ERROR-HANDLEr< */ 
BUF= • ADDRESSING ERRORS- 
CALL PRINT (BUF) ; 
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DCL P6 PTR(31), RETP PTR (31) BASED (P6) ; 
P6=R3 (12) ; /♦ POINT TO RETURN POINT ADDR ♦/ 
RETP= ADDR (L3) ; /♦ SET RETURN POINT TO L3 ♦/ 
RETURN; /♦ ERROR HANDLER WILL RETURN to L3 ♦/ 
END; 
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0001 
0002 
0003 



0004 



OOIA 
0015 



0016 
0017 
0018 
0019 
0020 
00?2 
0023 
0024 
0025 
0027 
0028 
O02«5 
00^0 



ERRINT5PR0C(I fX,II) OPTIONS ( REENTRANT) ; 
DCL BUF CHAR(121) ; 
DCL TRAN(16) CHAR(l) INIT I AL ( • • , ' 1 • , '2 ' , ' 3 • 
• 6 • , • 7 • , • 8 « , • 9 ' t ' A • , ' B • , • C • , ' D • , • E • , • F • ) ; 
** W13 ** DATA ITEM MAY NOT BE ADDRESSABLE 



'4' ,'5» 



AT 



** 



0005 



0006 

0007 
0008 
0009 
0010 
0011 
0013 



DCL MESS(15) CHAR(26) 1NITIAL( 

• PRIVUEDGED OPERATION AT 
' PROTECTION AT 
' SPECIFICATION AT 

• FIXED-PCINT OVERFLOW 
' DECIMAL OVERFLOW AT 
» EXPONENT OVERFLOW AT 
' SIGNIFICANCE AT 

W13 ** DATA ITEM MAY NOT BE 
DCL I FIXEDOl), /* NUMBER 



OPERATION AT 
EXECUTE AT 
ADDRESSING AT 
DATA AT 

FIXED POINT DIVIDE AT 
DECIMAL DIVIDE AT 
EXPONENT UNDERFLOW AT 
FLOATING POINT DIVIDE 
ADDRESSABLE 
OF ROUTINES GIVEN BY USER */ 



AT 



); 



X{30) PTR(31),/* USER INTERRUPT TABLE */ 
II FIXED(31), /* INITIALIZE FLAG */ 
XXAPICA FIXEDOl) INITIAL(O) /* SLOT TO HOLD USERS PICA*/; 
DCL Rl REG(l) PTR(31), R2 REG(2) PTR(31); 
** W05 ** POSSIBLE CONFLICT IN USE OF REGISTER 

'DCL ERRMES CHAR(50) INITIALC ILLEGAL TYPE IT IS IGNORED'); 
RSAVE=Rl; 

RSAP-= R2; /* SAVE REGISTERS*/ 
DUMMY=II ; 
IF DUMMY-.= 1 THEN GO TO LLl; /* BRANCH SO PICA IS NOT SAVED */ 



GEM; 



CNOP 

LA 

BALR 

DC 

DC 

DC 

DC 

SVC 



2,4 

1,*+12 

1,1 

B'OOrollU' 

AL3(ERR) 

R'OlllUll' 

B'llllllll' 

14 



SENDGEN 



RESTRICT(2) 
GEN; 

BALR 



SRL 

ST 

STC 



SENDGFN 



2,0 

2,24 

1, XXAPICA 

2, XXAPICA 

(2) ; 



RELEASE 
LLl:Rl=RSAVE; 
DCL CONTAB( 15) 
R2=RSAP; 
I^ 11= 1 THEN 



PTR(31) LCCAL EXTERNAL; 



/*CLEAR INTERRUPT TAPLE */ 



DC JJ=1 TC 15; 
CCNTABl JJ)=0; 
END; 
TERM=2*I-l; /* SET COUNT OF INTERRUPTS*/ 
IF TERM<0|TFRM>3C THEN DO; 
BUF=« IINCORRECT ROUTINE CCUNT'; 
CALL PRINT(BUF); 
RETURN; 
END; 
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0031 DO J=l TC TERM BY 2; 

0032 INDEX=X(J); /* PUT IN USER ROUTINES */ 

0033 IF INDEX<0| IN0EX>15 THEN DO; 

0035 BUF=ERRMES; 

0036 CALL PRINT(BUF); 

0037 GO TO DUTE; 

0038 END; 

0039 ELSE; 

0040 CGNTAB( INDEX)= X(J+1); 
OOAl DUTErEND; 

0042 RETURN; 

0043 EPR:ENTRY(XXX) ; 

0044 DCL XXX PTR(31) ; 

0045 DCL BLOOP PTR( 31) ; 

0046 BL00P=R1; 

0047 DCL 1 PIE CTL(BLOOP) BOUNDARY! DWORD) , 

2 PICAA PTR(31)t 
(2 OPSWL, /* LEFT HALF PGM PSW */ 



R14A, 
2 R15A, 

2 RlAt 



2 OPSWR, /* RIGHT HALF PGM PSW */ 



2 RO, 



2 R2A ) FIXED(31); 

0048 DCL 1 PSWTMP BOUNDARYC CWCRD ) AUTOMATIC, 

(2 TPL, 2 TPR ) FIXEOOl), BACK LABEL; 

0049 TPL= OPSWL; /* SAVE OLD PSW */ 
C050 TPR= OPSWR; 

0051 OPSWR = ADOR(BACK) ; /* TRICK SUPERVISOR*/ 

0052 GEN(L 15,4(0,13)); 

0053 GEN(L 14,12(0,15)); 

0054 GEN(BCR 15,14); 

0055 DCL SINDX FIXED(15); 

0056 DCL TPLA FIXED(15) CTL ( ADDR ( TPL > + 2 ) ; 

0057 BACK: SINDX= TPLA; /* PICK UP INTERRUPTION CODE ♦/ 

0058 IF CONTAB(SINDX)=0 THEN DO; BUF=MESS ( S INDX ) ; 

0061 BUFIN=2e; 

0062 DO CLAP=1 BY 1 TO 3; 

0063 /* CONVERT ADDR */ BTEMP=0; 

0064 DCL TPRZ (3) PTR(8) BASED ( ADDR ( TPR) +1 ) ; 

0065 BTEMP=TPRZ(CLAP) ; 

0066 BTFMP=BTEMPC«FO'X; 

0067 BTEMP=BTEMP/16; 

0068 BTEMP=BTEMp+l; 

0069 BUF(BUFIN)=TRAN(BTEMP); 

0070 BTEMP=0; 

0071 BUFIN=BUFIN+1; 

0072 BTEMP = TPRZ(CLAP) ; 

0073 RTEMP=BTEMP8'0F'X; 

0074 8TEMP=BTEMP+l; 

0075 BUF(BUFIN)=TR.AN(BTEMP) ; 
C076 BUFIN=BUFIN+L; 

0077 END; 

0078 CALL PRINT(BUF); 

0079 BUF=' •; 
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0080 
0081 
0082 
0083 



CAL 
CALL PR! 
CALL CL 
GEN; 

CNOP 
BC 
DC 
DC 
L 

SVC 
$ENDGEN 



OOPA 
0085 
0C86 
0088 
0089 
0090 
0091 
0092 
C093 
00<54 
0095 
00Q6 
C097 



00«?8 
0099 
0100 
0101 

0102 
0103 
C104 
0105 

0106 
0107 
0108 
C1C9 
110 
GUI 
0112 
0113 
nii4 
0115 
0116 
0117 
0118 



YO! 



OCL R 
IF C 
GEN(L 
GEN(L 
GEN(ST 

RETUR 
END; 
ELSE 



L PRINT(BUF) ; 
NT(BUF) ; 
OSE; 

0,4 

15,*+8 

ALK 192) 

AL3(24) 

l,*-4 

13 

END; 
ET PTR(31),ERRTN ENTRY CTL(RET); 
0NTAB(SINDX)=-1 THEN DO; 

14tTPR); /* IGNORE INTERRUPT AND RETURN */ 

15,4(0,13) ) ; 

14,12(0,15)) ; 
N; 



PTBACK PTR 
** W05 ** POSS 



** W05 ** POSS 
GEN(L 

RFGY 
REGYS( 1? 

** W06 ** DIME 



FRPCL : ENTR 
GFN( ST 
GFN( IC 
GEN(SLL 
GFN(MVT 
GEN(L 
GEN(SVC 
GEN( SPM 
GEN(L 

RETUR 
END; 



00 

RET 

OP 

OP 

DC 

(31) 

IBLE 

DO 

EN 
CCL 

IBLE 
lA, 

S(ll 

) = AD 
CAL 

NSIO 
GC 
END 

Y 
2,R 
2,X 
2,2 
XXA 
1,X 
14) 
2); 
2,R 

N; 



= CON 

SV<L = 

SVvR= 

L RE 

CTL 

CON 

15= 

REGY 

D; 

BLO 

CON 

SSAV 

)=R1 

nR(T 

L E 

NED 
TC Y 



/* CALL PGMER DEFINED ERROR ROUTINE */ 
TAB(SINOX) ; 
TPL; 
TPR; 

GYS(12) PTR(31),SPTR PFG(13) PTR(31), 
(SPTR+4) ,REGT( 10) PTR(31) CTL ( PTBACK+32) ; 
FLICT IN USE OF REGISTER 

1 TO 10; 
S(I5)=REGT(I5) ; /* STCRE REGS 3-12 */ 



OB 

FLI 

COl 

4; 

PR) 

RRT 

ITE 

C; 



PTR(31),R14 REG(14) FIXED(31) 
CT IN USE OF REGISTER 
+ 4) ; 



N (P1E,REGYS); 

M NOT SUBSCklPTEL' 

/* IF USER RETURNS */ 

/* BRANCH TC RESUME */ 

/* ENTRY TO RFSTnpF SYSTEM SPIE */ 



SAP) ; 
XAPICA) ; 
4) ; 

PICA 
XAPI 



,X«00« ) ; 
CA ) ; 



SAP) ; 
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BS 


DCL'D IN 


NAME 


48 


BACK 


101 


BLOOB 


45 


BLOOP 
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ATTRIBUTE AND CROSS REFERENCE TABLE 

STATIC. LOCAL, LABEL, INTERNAL 
51, 57 

AUTOMATIC, POINTEROl), INTERNAL, BOUNDARY (WORD, 1) 

AUTOMATIC, PCINTEROl), INTERNAL, BOUNDARY (WORD, 1 ) 
46, 47 

63 BTEMP AUTOMATIC, FIXEDOl), INTERNAL, BOUNDARY ( WORD, 1 ) 

63, «5, 66, 66, 67, 67, 68, 68, 69, 70, 72, 73, 73, 74, 74, 75 

2 BUF AUTOMATIC, CHARACTER ( 121 » , INTERNAL, BOUNDARY( BYTE, 1 ) 

27, 28, 35, 36, 60, 69, 75, 78, 79, 80, 81 

61 BUFIN AUTOMATIC, FIXED(3H, INTERNAL, BOUNDARY ( WORD , 1 ) 

61, 69, 71, 71, 75, 76, 76 

62 CLAP AUTOMATIC, FIXED(31), INTERNAL, BOUNDARY ( WORD, 1 ) 

62, 65, 72 

R2 CLOSE STATIC, NONLOCAL, ENTRY, EXTERNAL 

82 

1« CGNTAB (15), STATIC, LOCAL, P0INTER(3l), EXTERNAL, BOUNDARY! WORD, 1 ) 

22, 40, 58, 86, 94 

in DUMMY AUTOMATIC, FIXEDOl), INTERNAL, BOUNDARY ( WORD, 1 ) 

10, 11 

37 CUTE STATIC, LOCAL, LABEL, INTERNAL 

37, 41 

4? FRR STATIC, NONLOCAL, ENTRY, EXTERNAL 

43 

108 ERRCL STATIC, NONLOCAL, ENTRY, EXTERNAL 

ice 

1 FRRINT STATIC, NONLOCAL, ENTRY, EXTERNAL 

1 

7 ERRMES STATIC, LOCAL, CHARACTE P ( 50) , INTERNAL, BOUND AKY (RYT E, 1 ) 

35 

85 ERRTN BASED, ENTRY, INTERNAL 

105 

1 I PARAMETER, FIXE0(3l), INTERNAL, BOUNDARY ( WORD, 1 ) 

5, 5, 24 

1 II PARAMETER, FIXED(31>, INTERNAL, BOUND ARY ( WORD , 1 ) 

5, 5, 10, 20 
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DCL'O IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

32 INDEX AUTOMATIC, FIXEDOl), INTERNAL, BOUNDARY (WORD, I) 

32, 33, 33, 40 

98 15 AUTOMATIC, FIXED(31), INTERNAL, BOUNDARY ( WORD, 1) 

98, 99, 99 

31 J AUTOMATIC, FIXED(31), INTERNAL, BCUNDARY( WORD, I) 

31, 32, 40 

21 JJ AUTOMATIC, FIXED(31), INTERNAL, BOUNDARY ( WORD, U 

21, 22 

12 LLl STATIC, LOCAL, LABEL, INTERNAL 

12, 17 

4 MESS (15), STATIC, LOCAL, CHAR ACTER ( 26) , INTERNAL, BOUNDARY ( BYTE, 1 ) 

60 

IN PIE, FIXEDOl), INTERNAL, BOUNDARY (WORD, 1 ) 

49, 95 

IN PIE, FIXEDOl), INTERNAL, BCUNDARY (WORD, 1 ) 

50, 51, 96 

IN PIE, POINTEROl), INTERNAL, BCUNDARY (WORD, 1 ) 

STRUCTURE, BASED, CHARACTER (32 ) , INTERNAL, BOUNDARY( DWORD, 1 ) 
105 

28 PRINT STATIC, NONLOCAL, ENTRY, EXTERNAL 

28, 36, 78, 80, 81 

STRUCTURE, AUTOMATIC, C HARACTER (8 ) , INTERNAL, BOUNDARY( DWORD, 1 ) 

BASED, POINTEROl), INTERNAL, BCUNDARY ( WORD , 1 ) 
97 

(10), BASED, P0INTER(31), INTERNAL, BOUND ARY ( WORD , 1 ) 
99 

(12), AUTOMATIC, POINTEROl), INTERNAL, BOUNDARY ( WORD , 1 ) 

99, 103, 104, 105 

85 RET AUTOMATIC, POINTEROl), INTERNAL, BCUNDARY ( WORD, 1 ) 

35, 94 

9 RSAP AUTOMATIC, FIXEDOl), INTERNAL, BOUNDARY ( WORD , I ) 

9, 19 

8 RSAVE AUTOMATIC, FIXEDOl), INTERNAL, BOUNDARY ( WORD , 1 ) 

8, 17 



47 


OPSWL 


47 


OPSWR 


47 


PICAA 


47 


PIE 



48 


PSWTMP 


97 


PTBACK 


97 


REGT 


97 


REGYS 



47 


RIA 


101 


R14 


47 


R14A 


47 


R15A 


6 


R2 


47 


R2A 


55 


SINOX 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

47 RO IN PIE, FIXEOOl), INTERNAL, BOUNDARY (WORD, I) 

6 Rl REGISTER(l), PCINTEROl), INTERNAL, BCUNDARY ( WORD , 1 ) 

8, 17, 46 

IN PIE, FIXEDOl), INTERNAL, BCUNDARY ( WORD, 1 1^ 

REGISTER! 14) , FIXEDOl), INTERNAL, BOUNDARY ( WORD, 1 ) 
103 

IN PIE, FIXEDOl), INTERNAL, BOUNDARY ( WORD, 1 ) 

IN PIE, FIXEDC3H, INTERNAL, BCUNCARY ( WORD, 1 ) 

REGISTER(2), PCINTEROl), INTERNAL, BCUNDARY ( WORD, 1 ) 
?, IS 

IN PIE, FIXEDOl), INTERNAL, B CUNDARY ( WORD, 1 ) 

AUTOMATIC, FIXE0{15), INTERNAL, BCUNDARY ( HWORD , 1 ) 
57, 56, 6C, 86, 94 

«37 SPTR REGISTER! 13) , POI NTFP. ( 3 1 ) , INTERNAL, BOUN D ARY ( WURC, 1 ) 

97 

24 TERM AUTOMATIC, FIXEDOl), INTERNAL, BCUNDARY { WORD , 1 ) 

24, 25, 25, 31 

4P TPL IN PSWTMP, FIXED(3l), INTERNAL, BOUND ARY ( WORD, 1 ) 

49, 56, 95 

56 TPLA BASED, FIXE0(15), INTERNAL, BCUNDARY ( HWORC , 1 ) 

57 

48 TPR IN PSWTMP, FIXED(31), INTERNAL, BOUND ARY ( WORD , 1 ) 

50, 64, 96, 104 

64 TPRZ (3), BASED, PCINTER(a), INTERNAL, BOUND APY ( PYT E , 1 ) 

65, 72 

3 TRAN (16), STAT[C, LCCAL, CH AR AC T t f ( 1 ) , INTERNAL, BCUNDAP Y ( BYT E, 1 ) 

69, 75 

1 X (30), PARAMETER, PniNTfcR(31), INTERNAL, BfUND AP Y ( WOR D , 1 ) 

5, 5, 3?, 40 

5 XXAPICA STATIC, LOCAL, FIXED(31), INTERNAL, BCUNDARY ( KORO , 1 ) 

43 XXX PARAMETER, PCINTEP(31), INTFKNAL, BCUNDARY ( WORD , 1 ) 

44, 44 

88 YO STATIC, LOCAL, LAEFL, INTERNAL 

88, 106 
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*** PROC. ERRINT HAD 006 ERRORS 
*** THE FOLLOWING STATEMENT(S) HAD ERRORS 
0G03,00C4,CCC6,C097,0101,010 5 
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VI. EDIT 

!• Function 



EDIT is a library routine intended for use with BSL 
programs which may be called to perform input and 
output conversions analagous to the PL/I GET/PUT EDIT 
statements. Options are provided to perform GET/PUT as 
an I/O function or as with the PL/I STRING option. 
These options are obtained by the use of different 
entry points invoked by a CALL statement. 

Entry points and functions 

The entry points and their functions are as follows: 

A. GET (FORMAT, DATA,, DATAa, ... , DATAn) ; 

This is analagous to the PL/I GET EDIT statement 
and reads a card from file with the DD name BSLIN, 
converts the fields specified in the FORMAT 
specification to the appropriate internal forms 
and assigns them to the corresponding data items. 
The method of specifying formats and the 
correspondence between format items and data 
arguments will be discussed later. 

B. GETS (FORMAT, STRING, DATAi , DATA^ , ... , DATAn); 

This has the same function as a PL/I GET statement 
with the STRING option. It works in the same way 
as GET, above, except that no read operation takes 
place. Instead, the STRING, defined by the second 
argument, is considered to be the source of the 
data to be converted. 

C. PUT (FORMAT, DATA^ , DATA2, ... , DATAn); 

This corresponds to the PL/I PUT EDIT statement 
with the PRINT option. The data items are 
converted according to the FORMAT specification 
and the resulting character string is written on 
the file with the DD name BSLOUT. An ASA carriage 
control character precedes each record, and is 
initialized to blank, which will result in single 
spacing. The user has the capability of skipping 
lines or page ejecting through the use of the S, 
P, or L format items, which will be described 
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later. 



D. PUTS (FORMAT, STRING, DATA^ , DATAa, 



DATAn) 



This will have an effect similar to the PL/I PUT 
EDIT with the STRING option. It is the direct 
reverse of the function performed by GETS, 
described above. There is no carriage control 
field as in PUT, above, and the first position of 
the resulting string will be the first character 
in the STRING. 



E. TABSET(N, TAB«, TABj, 



TAB 



nl 



3. 



This entry is used for initializing tab positions 
which will be used in conjunction with the T 
format item. The first argument, N, is the number 
of tabs in the list, and TAB , TAB , etc. are the 
tab positions to be set* The maximum number of 
tabs is 63. If no <;all has been made to TABSET, 
default tab positions will be: 1,11, 21, 31, 41, 
51, 61, 71, 81, 91, 101, and 111. The use of tabs 
will be described in detail later. 



There are two methods of specifying a FORMAT list to be 
used in EDIT conversions i The choice of one over the 
other will be based on considerations such as ease of 
use, facility, and performance. 



A. 



Free form format 



The method which is the easiest to use is to 
provide a character string which contains the list 
of format items. The syntax of this forniat list 
is as follows: 



item ^ 

replication item 
replication (list) 



, item 

, replication item 
_, replication (list). 



. . . terminator 
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where: ite m is any of the format items described 
below, replication is either an integer 
constant or a DO format item, 

list has the same description as the format 
list, and t erminator is a period. The 
terminator is essential, because the EDIT 
program has no other way of determining 
the number of data items in the data list. 



Blanks are allowed between elements of the list. 
There are two general types of format items: 
control format items and data format items. 
Control format items perform the functions of 
setting the pointer to be used in accessing fields 
in the input or output stream, skipping to the 
next input or output record, skipping to the next 
page (in the case of PUT) , or providing 
replication information, so that a format item or 
a format list will be used repeatedly. Data 
format items describe the type of conversion to be 
performed on the corresponding data item, and in 
certain cases, attribute information about the 
data item. There must be a data item in the 
argument list to correspond to each data format 
item in the format list (taking replication into 
consideration) . 

B. CONTROL format items 

X (n ) This will cause the pointer to be advanced n 
positions to the right of its current position. 
Intervening positions, in the case of PUT or PUTS, 
will be filled with blanks. If n is greater than 
80 when doing input (GET) the next record will be 
read in and the pointer positioned to n-80. If 
this is still greater than 80, the process is 
continued until a position between one and 80 is 
obtained. Similarly, on output (PUT) , if n is 
greater than 12 0, the current record is output and 
the pointer is positioned to n-120. This process 
is also repeated, as in GET, until a pointer value 
is obtained which is less than 120. //hen using 
GETS or PUTS, however, the pointer is simply 
advanced n positions to the right. It is the 
user's responsibility to ensure that the pointer 
does not advance beyond the end of the STRING. 
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C (n) This will cause the pointer to be advanced 
to position n in the input/output stream. If GET 
or PUT are being used and n is greater than 80 or 
120, respectively, records will be skipped in the 
same manner as when X (n) causes the pointer to be 
advanced beyond the end of the record. 

If n is less than the current position of the 
pointer, when using GET or PUT, a skip to the next 
record is implied. That is, n will be treated in 
the same way as if it were n+80 in the case of GET 
or n+120 in the case of PUT. For GETS or PUTS the 
quantity n will be used to advance the pointer n 
positions in the string. Backward setting of the 
pointer in this manner does not cause blanking. 

S This will cause the current record to be 
written, in the case of PUT, and the pointer set 
to position one of a new line. Similarly, in the 
case of GET, a new record will be read and the 
pointer set to position one of this new record. 
When using GETS or PUTS, this format item is 
ignored. 

P This will cause the current record to be 
written, in the case of PUT, and the next line to 
begin on the succeeding page. In the case of GET, 
this format item is treated the same as S, above. 
When using GETS or PUTS, this format item is 
ignored. 

L (n ) This format item is intended for use with 
PUT. It will have the same effect as the P format 
item followed by n-1 S format items. That is, the 
next line will begin on line n of a new page. 

When using GET, this format item will be treated 
in the same way as the S format item and n is 
ignored. In the case of GETS or PUTS, this format 
item is ignored. 

T This causes the pointer to be advanced to the 
next tab position which is greater than the 
current position of the pointer. Tabs may be set 
through the use of the TABSET entry point, 
described above, or the default tabs may be used. 
There is only one tab table in the EDIT program, 
which is used for both input and output. If the 
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user requires different tabbing for these, he must 
call TABSET each time he desires different setting 
of the tabs. 

If the use of a tab would result in the pointer 
being advanced beyond the end of the current 
record, when using GET or PUT, the current record 
is dispensed with and the pointer is set to the 
value of TABl in the next record. Similarly, if 
the pointer has already been positioned past the 
value of the last tab in the table, the current 
record will be dispensed with and the pointer set 
to TABl in the next record. 

C . Replication format item s 

Replication is technically not a type of format 
item, but it does perform a control function and 
is therefore, included as a special case of the 
control format items. There are two types of 
replication supported. 

n This will cause the immediately following 
format item or format list enclosed in parentheses 
to be used repeatedly n times. Each time a data 
format item is encountered, the next data item in 
the argument list is accessed. In other words, 
the effect of using this type of replication is 
exactly the same as if the immediately adjacent 
format item or format list were repeated n times. 
For example: 

2 F(6,31) 

is exactly equivalent to: 

F(6,31) , F(6,31) 



DO (n,d) This type of replication is intended to 
provide the capability of inputing or outputing an 
entire data aggregate, without having to itemize 
each element. Its effect is similar to the 
"implied DO" of PL/I, except that the DO 
specification must appear in the format list, 
rather than in the data list as in PL/1. The 
operation of the DO format item is as follows: 
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The same data item is referenced n ti 
immediately adjacent format item 
repeatedly n times in conjunction with 
Each successive time the data item is 
the address of the data being a 
incremented by d bytes, in order to 
next element of the aggregate. The u 
careful to know the mapping of his data 
when specifying this parameter. 



mes and the 

is used 

this data. 

referenced, 

ccessed is 

obtain the 

ser must be 

aggregate 



The DO format item may also be used 
with a format list enclosed i 
However, this is constrained by the 
associated format list may contai 
format item , although it may have 
control format items. If this ru 
the results are unpredictable. A.1 
format items may sometimes have 
results and should be avoided. It 
noted that a DO format ite 
specification equal zero is equi 
simple replication described above. 

DC (2,0) F (6,31) 

is equivalent to: 

2F(6,31) 



in conjunction 
n parentheses. 

fact that the 
n only one data 
any number of 
le is violated, 
so, nested DO 
unpredictable 
should also be 
m with the d 
valent to the 
That is: 



The following examples demonstrate the use of the 
DO format item: 

1 DCL V(5) FIXED (31) ; 

2 CALL PUT ('DO (5,4) (X (2) , F(6,31) ) . • , V) ; 

3 CALL PUTC5(X(2) ,F(6,31)) .',V(1) ,V(2) ,V(3) ,V(4) ,V(5) | ; 

U CALL PUT (•X(2) ,F (6,31) ,X (2) ,F (6,31) , X (2) ,F (6,31) , 

X(2) ,F(6,31) ,X{2) ,F(6,31) .•,V(i) ,V(2) ,V (3) , 
V(4) ,V(5) ) ; 

6 CALL PUT ('DO (5,0) (X (2) ,F (6,31) ) . • , V (1) , V (2) , 

V(3) ,V(4) ,V(5)) ; 

7 CALL PUT ('DO (5,4) (DO (5, 4) F (6, 3) ) . • , V) ; 
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In the above example, statements numbered 2 
through 6 will have the identical effect of 
putting out the entire array, V, according to the 
format specification, F(6,31) , and with two blanks 
between each field. 

Statement number 7, however, is not correct, since 
nested DO specifications are used. The effect, in 
this case, will be that the inner DO specification 
will be completed, and an attempt will be made to 
access a new argument for the second iteration of 
the outer DO specification. That is, for each 
level of DO specification, a new data item is 
required. Thus, in the above example, if five 
arrays had been mentioned in the data list, the 
result would have been that all five arrays would 
have been output in the same manner. If the user 
desires to take advantage of the nested DO 
facility, he should make sure he understands this 
relationship. 

^ • Data format items 

A in ) The associated data item is treated as a 

character string and n characters are moved from 
it, in the case of output, to the field in the 
output string starting at the current position of 
the pointer. If PUT is being used, and there are 
not enough spaces remaining on the current line to 
contain this character string, the current line is 
output and the field will begin in position one of 
the next line. In the case of input, n characters 
are moved from the input string to the associated 
data item. If there are not n characters 
remaining in the current record in the input 
stream, in the case of GET, a new record is used 
and the n characters are accessed beginning with 
position one of the new record. 

The pointer is then advanced n positions to the 
right in preparation for the next field. 

B (n) The associated data item is treated as a bit 
string of length (n) and, in the case of output, 
each bit is converted to its character 
representation ('l* or "O*) and placed into the 
output string. In the case of input, n characters 
are accessed from the input string; each character 
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is eKpected to be either a •!• or a 'O* and these 
will be converted to a bit 'I'B or 'O'B and placed 
in the corresponding position in the bit data 
item. The same rules apply with regard to the 
field not fitting in the remaining part of the 
record as in the h format item. 

H (n) The associated data item will be converted 
to hexadecimal, in the case of output, and placed 
into a field of length (n) . The size of the data 
item is considered to be n/2 bytes. On input, the 
field in the input string is considered to contain 
any combination of the characters "0', '1', •2*, 
•3', 'H', '5«, *6', •?•, 'S', •9', 'A', 'B', 'C, 
•D', "E', or 'F*. Each respective character will 
be converted to a four bit binary value in the 
range 'OiOOO'B to 'illl'B and placed the data item. 
Any characters other than those mentioned above 
will produce unpredictable results. 

F (n ,d) The associated data item will be treated 
as a fixed point arithmetic variable of precision 
(d) . On output, this variable will be converted 
to decimal (character) and placed right justified 
in the field of length (n) in the output string. 
If the number is negative, a minus sign will 
appear to the left of the most significant digit. 
If the field is too short to contain the converted 
number and sign, if any, truncation will be 
performed on the left. 

On input, the field in the input string is 
considered to contain numeric characters, 
optionally preceded by a plus or minus sign. If 
the sign is present, it must immediately precede 
the most significant digit. The numeric 
characters are converted to binary and assigned to 
the associated data item. If illegal characters 
are present, the EDIT program will write a 
diagnostic message on BSLOUT. 

Note: Trailing blanks within the field will be 
treated as zeroes. 

U (n,d) This format item provides the facility for 
the user to specify his own conversion algorithm 
far a given data item and the current position in 
the input/output string. There are two data items 
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associated with each U format item. The first is 
a pointer to the user's conversion routine and the 
second is the data item which is to be referenced 
by the conversion. The n and d specifications are 
passed along to the user program to be used as 
desired. It is recommended that the n 
specification be the length of the field in the 
input/output string, as the EDIT program will use 
this to determine whether to skip to the next 
record. The d specification is optional and, if 
present, may contain any numeric information of 
use to the user program. 

The user program must be an external procedure and 
be set up to receive four parameters: 

^r N, D, Q in that order, where: 

P is a pointer to the beginning of the current 
field in the input/output string. When the user 
routine has completed its conversion, it should 
update P to position the pointer past the given 
field. 

N is the contents of the n specification in the U 
format item. 

D is the contents of the d specification in the U 
format item. 

Q is the data item which is to be converted or to 
receive the converted result. 

P and Q are defined as POINTER (31) and 

N and D are defined as FIXED (31) . 

Since there are two data items associated with the 
U format item, it is not legal to use it in 
conjunction with the DO format item. Any attempt 
to do so will obtain unpredictable results. It is 
possible to obtain this capability, however, if 
the user program is so designed. The d 
specification, for instance, could be used to tell 
the user routine the number of elements in an 
array. 
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The following is an example of the use of the U 
format item: 

DECLARE P PTR INIT (ADDR (MYCONV) ) , 

USER ENTRY CTL (P) , 

DATA FIXED (31) ; 
CALL PUT (•U(6,25) . • ,USER, DATA) ; 



In this example, MYCONV is the name of an external 
procedure which is set up to receive the arguments 
described previously. The value of the arguments 
in this case, will be: 

ADDR (output buffer) , 6,25, DATA 



If the recommended practice has been observed, the 
user routine will have changed the first parameter 
to ADDR (output buffer) + 6 upon completion. 

4 . Coded format lists 

The second method of specifying a format list is to 

provide a table which has been initialized to contain 

internal codes representing format types and binary 

values of the n and d fields. The table must be 
defined as: 

DCL 1 FORMAT (n) , 
2 T PTR (8) , 
2 N PTR (8) , 
2 D PTR (8) ; 



The names, FORMAT, T, N, and D are, of course, 
arbitrary, but the structuring must be identical to the 
example. The dimension of the table is up to the user. 

When using this method of format description, T (1) must 
be equal to binary zero. This is the only way the EDIT 
program can determine whether the first or second 
method is being used. Succeeding values of T depend 
upon the format item being used. The internal codes 
for each of the format items are as follows: 
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Format Item Internal Code 

A 1 

B 2 

F 3 

H 4 

U 5 

X 6 

( 7 

S 8 

P 9 

T 10 

L 11 



In addition, replication (both kinds) is represented by 
the character •♦• (or internally 'SC'X) • For simple 
replication, the corresponding D element will be zero, 
and for the DO type of replication, this will contain 
the d specification. 

Grouping of format lists, as in replication, are 
represented by an entry in the table in which T 
contains the character • (• (or internally •ID'X) , and D 
contains a level number. The level number should be 
one greater than that of the previous group which has 
not been closed out. The group is closed by an entry 
in the table in which T contains the character ') • 
(internally '5D'X) and D contains the same level number 
as the entry specifying the beginning of the group. It 
is not important that these level number conventions be 
strictly adhered to, but this is suggested for ease of 
debugging and documentation. It is important, however, 
that the level n umbe r be non- zer o, as a zero value will 
confuse the EDIT program's housekeeping. 

The end of the format list is represented as an entry 
in the table with T containing the character •,• 
(internally 'UB'X) . 
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An example of the two methods of format descriptio n . 
DECLARE FMTl CHAR (21) INIT(«C(3) ^2 (F (6, 31) ,X (2) ) . ') / 
1 FMT2 (8) , /* C * ( F X ) . ♦/ 

T PTR(8) INIT(0,7,*5C'X,"aD'X, 3, 6, 'SD'X, 'aB'X), 
N PTR(8) INIT (0,3,2,1,6,2,1,0) , 
D PTR(8) INIT (0,0,0,31,0,0, 0) ; 

The variables FMTl and FMT2 could be used 
interchangeably to obtain the identical result. 

The choice between the first and second methods of 
defining format lists may be dependent upon the 
following considerations: 

A. The user will probably find that the first method 
is easier to use and provides a more graphic 
documentation for his program. 

B. The second method may be preferable if the user is 
interested in reducing processing time to a 
minimum, since it is not necessary to scan a free- 
form list. 

C. The second method may be required if the user 
program is very large and there is not enough 
memory to contain the SCAN module. The SCAN 
module is a separate program and may be excluded 
from the load module at line-edit time by 
specifying the NCAL option and providing INCLUDE 
cards for the EDIT program and the READ (BSL 
INPUT/OUTPUT) program, which is called by EDIT. 

D. If it is desired to change any of the format 
specifications dynamically, this is easier done 
when the second method is used. It will be noted, 
however, that when the first method is used, it is 
very simple to read a format list into a character 
string and then use this format list in a 
succeeding call to EDIT. Thus the user can design 
his program such that his input records are self- 
defining. 
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^ • Restricti ons and limitations 

A. If the first method of format description is used 

(character string) , the maximum length of the 
string is 256 characters. For the second method 
there is no limit. 

B. When the STRING option is used, it is the user's 
responsibility to insure that the pointer does not 
advance beyond the end of the user's string. 

C. Character string literals passed as arguments, 
such as format lists, may not exceed 53 
characters. Character string variables may 
contain up to 256 characters. 

D. The n specification for any of the data format 
items may not exceed 80 for GET or 120 for PUT. 
When using GETS or PUTS, there is no lirnit. 

E- Each call to GET or PUT represents at least one 
I/O operation. That is, each call to GET causes a 
record to be read before processing takes place, 
and each call to PUT causes the current contents 
of the buffer to be written when processing has 
been completed. If the user is interested in 
building up a record through several calls to 
EDIT, he can do so by using the STRING option. 

F. If the user does not know how many records appear 
on his input data set and wishes to test for end 
of data, there is an external variable named EOF, 
which is defined as FIXED (31) which may be tested. 
EOF will be set equal to until the end of data 
is reached, when it will be set equal to one. 

6 . Error cond itions det ected by EDIT 

There are several error conditions which can De 
diagnosed by the EDIT program- When one of these is 
encountered, a suitable message will be written on 
BSLOUT. Following this will be the current contents of 
the input/output string for as far as the pointer has 
advanced. After encounting an error condition, no 
attempt will be made to recover and continue 
processing; return will be made to the user program. 
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Diagnostic messages will be of the form: 

•♦♦♦♦♦♦♦♦♦♦HAS OCCURRED WHILE ATTEMPTING EDIT CONVERSION' 

where •♦♦♦♦♦♦♦♦♦■ will be replaced by a specific 
diagnostic such as one of the following: 

•AN ILLEGAL FORMAT ITEM TYPE' - This indicates that a 
character was encountered which was not one of the 
recognized format items. 

•PROGRAM ERROR TYPE^ • - This indicates that an 
interrupt occurred within the EDIT program. The 
•♦• will be replaced by a hexadecimal interruption 
code obtained from the PSW. The possible 
interruption codes and the probable cause for each 
are given below. 

1 Illegal operation - the probable cause is that a 
branch has been made to a module which has 
not been loaded. Possible candidates are the 
SCAN or READ modules, or the user^s 
conversion routine when using a U format 
item. 

5 Addressing - the probable cause is that there 

are more data format items than data items in 
the argument list. Be sure to check 
replication in the format list. 

6 Specification ~ the probable cause is the use of 

the F format item where the d specification 
does not agree with the precision of the data 
item with which it is matched. 

7 Data - this can only occur when, using the F 

format item for input, a non-numeric 
character has been encountered in the field. 

8 Fixed-point overflow - This will occur if the 

field being processed for input with the F 
format item contains a number greater than 
2,147,483,642 or less than - 2,147,483,642. 

•ILLEGAL FORMAT LIST SYNTAX' - This indicates that the 
format list contains a syntactic error, such as a 
missing right parenthesis, comma, or terminator. 
Note thcit the comma delimiter should not appear 



IBM Confidential October 27, 1967 



BSL LIBRARY Page 76 



between replication and the format item or list 
with which it is associated. 
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0001 EDIT: PROC( FNlT,DATA ) OPTI ONS (DAT AREG( 12 ) ) ; 

0002 DECLARE 

(P,Q,R,S) PTRt 
1 TABLE CTL(P), 

2 FORMAT( 120) t 
^ T CHAR(l) , 

3 W PTR(8) , 
3 D PTR<8) , 

PU PTR, 

USER ENTRY CTL(PU) , 

1 BUFR, 

2 CCTL CHAR( 1) , 

7. BUF CHAR( 120) , 
ARG(50) CTL(Q), 
IMAGE CHAR( 120) CTL{ S) , 
FMT CHAR( 256) , 
PUP PTR CTL(R) , 
DATA FIXED, 
CC CHAR( 1) INIT( • • ) , 

(K,L,FUNC,nPT,V,Vl,V2,JJ,KK)FIXF0( 31) , 
(TltT2) PTR(8), 
1 CDATA CTL(R) BnY(WORD), 

7. FF FIXFD( 31) , 
3 FH F1XFD( 15) , 
4 PI PTR(8) , 

1 WKS, 

2 BLANKS CHAR(120) INIT(' •), 
2 TMPS CHAk( 16) IMT( ' • ) , 

7 SPCF CHAk( 120) , 

HEX CHAR (16) I N I T < ' 12 345678 <^AHCOFF ' ) , 

PATTERN CHAR(16) INIT( '40? 02 02 0?n?0?0?02C?020 2020202120 'X), 
I REGISTFR(2), 
R 3 R E G I S T f R ( 3 ) , 
R4 REGISTE k(4) PTk( 3! ) , 
J PbGISTFR( 5) , 

FRMSG r,HAR(l?l) i fg i T (• i «#*««*«*«*«*=!<*«********** ******** HAS 
BLtN ENCOUNTERED WHIII ATTINPTING FDIT CONVFRSION. •), 
DEC CHAR(8) BDY(C^inKD), 
XXAPICA FIXLD( 31) , 
( AnUT,BnUT,F(lUT,H()UT,X(JUT,CC)UT ,SriUT ,PCUT,TaUT,UOUT ,AIN,BIN,FIN, 

HIN,XIN,riN,SIN,PIN,TIN,UIN)LABfL, 
RFP (16) PTR(15) INIT(O), 
I N I T ( 1 ) , 
iN!T(0) , 
I M r ( 1 ) , 
INIT( 1) r 
T( 'FC'X) , 
C CHAR( 1) LTL (R4) , 
TAB(6A) PTR(B) INIT( 12, 1,1 1,21,3 I, 41, 'I, 61, 7 I, 81, 91, 101, 111), 
PFRR PTR(31) INIT( ACUR(FRk) ) , 

AC T I ON ( 24) PTR INI T( AnDK( AOUT) ,ADDk( BOUT ) , ADDP (FOUT) , AODR (HOUT) 
,ACOR(UOUT ) ,AnDR(xnUT) ,AniJk(CtjUT ) , ADDRISOUT ) , ACDR(POUT ) 
,AUnP ( TOUT) ,AODk(l nu T ) ,AUOk(LRR) , ADDP ( A I M ) , A COP ( B IN ) 
, ADI)R( I IN) ,ADnR (HIN) , Annk (U IN) , ADCR(X IN) , AODR (CIN) 
, AODR (SIN) ,ACnk(PIN) , AUDPd I N ) , ADCR ( L I N ) , ADDR ( E RR ) ) ; 



START! 16) PTk( 


8) 


IMnn (16) PTR( 


8) 


FIRST( 16) PTk( 


8) 


NO (16) PTk( 


8) 


SIGN CHAR( 1) 


IN 
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0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOIO 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
C026 
0027 
0C2P 
0029 
C030 
CO 31 



0032 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 



*/ 

/♦ GET NUMBER OF TABS (MAX. IS 63) */ 

/* LOOP THROUGH ARG LIST AND TAB TABLE */ 
/* SET TAB ACCORDING TC CORRESPONDING ARGUMENT*/ 



RESTRICT(2,3,4,5); 
TABSET: ENTRY; /* ENTRY PCINT TO INITIALIZE TAB TABLE 
GEN(ST 1,Q ); 
R=ARG( 1) ; 
N=FFe63; 
TAB(l) = n; 
DO J=2 TO N+l; 
R=ARG( J) ; 
TAB( J)=FF; 
END; 
RETURN; 
PUT: ENTRY(FMT,DATA) ; 
FUNC = 2; 

OPT=o; 

BUFR = ••; 
GO TO PROCESS; 
GET: ENTRY(FMT,DATA) ; 
FUNC = 2; 
0PT=12; 

CALL READ(BUF) ; 
GO TO PROCESS; 
PUTS:ENTRY(FMT,OATA) ; 
FUNC = 1; 

OPT=0; 
GO TO PROCESS; 
GETS:ENTRY(FMT,DATA) ; 
FUNC = l; 
0PT=12; 
PROCESS: 

GEN; 
ST 1,Q 
CNOP 2.4 
LA 1,*+12 
BALR 1,1 
DC X'OF' 
DC AL3(ERA) 
DC )('7FFF' 
SVC 14 
BALR 2,0 
SRL 2,24 
ST 1,XXAPICA 
STC 2,XXAPICA 
L 1,0 
SENDGEN 

IF FUNC = 2 THEN DO; 

S = ACDR(BUF) ; 
0D=l; 
END; 
ELSE DO; 

S = ARG(2) ; 
0D=2; 
END; 
N=0; 
P = ADDR(FMT) ; 
J=l; 
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OOAA IF T(l) -■= 'OO'X THEN DO; CALL SCAN(PJ; J=0; 

0048 END; 

0049 K = l; I=l; 

0061 ITER: J= J+1; Tl = T(J); 
0053 IF Tl = '*• THEN DC; 

0055 K = K+l;, 

0056 REP(K) = W( J) ; 

0057 IMDn(K»=D( J) ; 

0058 FIRST(K)=l; 

0059 START(K)= J; 

0060 ND(K) = 0; 

0061 GC TO ITER; 

0062 END; 
C063 IF Tl = •( • THEN DC; 

0065 ND(K) = W(J) ; 

0066 GC TO ITER; 

0067 END; 

0068 IF Tl = • ) ' THEN DC; 

0070 TSTK: IF REP(K)=1 THEN K=K-1; 

0072 ELSF DO; 

0073 PFP(K)=RFP(K)-l; 

0074 J = START(K) ; 

0075 IF IMOn(K)-.= THEN FIRST(K) = 0; 
C077 END; 

0078 GC TO ITER; 

0079 END; 
OOPO IF Tl=' . • THEN DO; 

0082 IF 0PT+FUNC=2 THEN CALL PklNT(BUFR); 

0084 GC TO EPI ; 

0085 END; 
C086 IF Tl = •?• THEN DH; 

0088 FRMSG(2:3?) =' ILLFGAL FORMAT LIST SYNTAX •; 

<)0R9 GO TO ERROR; 

oo<50 end; 

OOQl IF TK6 THEN DO; /* IF IT IS A DATA roRMAT ITEM */ 

G0<33 IF FIR'^T(iK)=l THF N nn; /* FIRST ITERATION OF AN */ 

Onq^ /* I^'FLIEO OF) ( OR FLSF NO IMPIFD DO ) */ 

r() = nn+l ;/*STFP to NEXT ARGUMENT*/ 

■ 0096 R =ARG(DD); 

00 97 END; 

0098 FLSF K=R+IMnO(K) ;/* GFT NEXT ELEMENT*/ 

009Q IF FUNC = ? THEN /* GLT (;R PUT (MOT STRING) */ 

0100 IF nPT=0 THEN /* PUT */ 

0101 no; /* TEST FOR LINE SPILL */ 

0102 IF I+W{J)>121 THEN DO; 

0104 CALL PRINT(BUFR); 

0105 8UFP=« • ; 

01 06 1 = 1; 
107 EMC; 

0108 ELSE; /* NULL */ 

010" tLSf dp; /* TEST FOR CARD SPILL*/ 

0110 IF I+W(J)>81 THFN DO', 

0112 CALL RFAD(BUF); 

0113 I=l; 
n 1 1 4 END; 
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0115 END; END; END; 

0118 IF TI>11 THEN GO TC ERRl; 

0120 Tl = Tl + OPT; 

0121 GO TO ACTIGN(Tl) ; 

0122 LOUT: IF FUNC=1 THEN GO TO NDITM; 

0124 CALL PRINT(BUFR) ; 

0125 L=120*(W(J)-1)+1; 

0126 BUFR=«1'; 

0127 GO TO TSTL; 

0128 XOUT: N=I; /* CHANGE X FORMAT TO C FORMAT */ 

0129 COUT: L=W(J)+N; N=0; 

0131 LL = L-l; 

0132 IF L<I THEN IF FUNC=2 THEN DO; /* TEST FOR BACKWARD POSITION */ 

0135 CALL PRINT(BUFR); 

0136 BUFR="; 

0137 END; 

0138 ELSE; 

0139 ELSE IF FUNC = 1 THEN I MAGE ( I : LL ) = BLANKS ; 
0141 TSTL: IF L>120 THEN IF FUNC=2 THEN DO; 

01A4 CALL PPINT(BUFR) ; 

0145 BUFR=««; 

0146 L=L-12C; 

0147 GO TO TSTL; 
014R END; 
0149 
0150 

0151 AOUT; 
0152 
0153 
0154 

0155 BOUT: 
0156 
0157 
0158 
0159 
0160 
0162 
0163 
0164 
0165 
0166 
ri68 
0169 
017C END; 

0171 FND; 

0172 MVB: VI = I+L-1; 

0173 IMAGE(I:V1) = TMPS(1:L); 

0174 or TO INCRI ; 

0175 HOUT: L=W(J); 

0176 V = (L-l)/2+l; 

0177 DO KK = 1 TO V; 

0178 JJ = 2*KK-1; 

0179 Tl = CCATA(KK) ; 

0180 12 = Tl/16 +1; 

0181 TMPS( JJ) = HEX( T2) ; 



I = l; 




GO TO TSTI; 




L = W( J) ; 




VI = I+L-l; 




IMAGE( I: VI) = CDATA( 1:L) ; 




GO TO INCRI; 




V = 8; 




L = W( J) ; 




DO KK = 1 TO L/8 +1; 




MSK = 'eO'X; 




NN = (KK-1)*8; 




IF (NN+8) > L THEN V=L-NN; 




00 JJ = 1 TO V; 




Tl = CDATA(KK) ; 




Tl = Tl £ MSK; 




LL = NN+JJ; 




IF Tl = THEN TMPS(LL) = 


•0 


ELSE TMPS(LL) = 


'1 


MSK = MSK/2; 
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0182 




JJ=JJ+l; 


0183 




T2 =(T1 e •OF'X) +1; 


0184 


CLEAR: 






TMPS( JJ) = HEX(T2) ; 


0185 




END; 


0186 




GO TO MVB; 


0187 


FOUT 


: L = D( J) ; 


0188 




IF L > 16 THEN R3 = FF; 


0190 




ELSE IF L > 8 THEN R3 = FH; 


0192 




ELSE R3 = Pi; 


0193 




GEN(CVO 3, DEC ); 


0194 




IMPS = PATTERN; 


0195 




GEN(LR 3,1 ); 


0196 




GEN(LA ltTMPS+15 ); 


0197 




GEN(EDMK TMPS(16),DEC ); 


0198 




GEN(8C 10, SP ); 


0199 




GEN(BCTR 1,0 ); 


O200 




GEN(MVI C(1),X»60»); 


0201 


SP: 


GEN(LR 1,3 ); 


0202 




L = W ( J ) ; 


0203 




VI = I+L-l; 


0204 




V2 = 17-L; 


0205 




IMAGE( I:V1) = TMPS(V2:16) ; 


0206 


INCRI: I = I + IL; 


0207 


TSTI 


GO TO NOITM; 


0208 


ISET 


: 1=1; 


0209 




GO TO NDITM; 


0210 


POUT 


: CC = '1'; 


0211 


SOUT 


: IF FUNC -.= 2 THEN GO TG NDITN*; 


0213 




CALL PRINT(BUFP) ; 


0214 




CCTL = CC; 


C215 




BUF = • • ; 


0216 




CC = • • ; 


0217 




GO TO ISET; 


0218 


PIN: 
LIN: 






SIN: 


IF FUNC = 1 THEN GO TC NOITM; 


0220 




CALL READ(BUF) ; 


0221 




GO TO ISET; 


0222 


XIN: 


N=I; /* CHANGE X FORMAT TO 


0223 


GIN: 


L=W(J)+N; N=C; 


0225 




IF L<I THEN IF FUNC=2 THEN CALL RFAD(eUF); 


0228 


TSTC 


: IF L>80 THEN IF FUNC=2 THEN 00; 


0231 




CALL READ(BUF) 


0232 




L=L-80; 


0233 




GO TC TSTC; 


0234 




END; 


0235 




I = L; 


0236 




GO TO TSTI; 


c237 


AIN: 


L = \riisi) ; 


0238 




vi= i+L-l; 


0239 




CDATA( l:L) = IMAGE! I:Vn ; 


0240 




GC TO INCRI; 


C241 


BIN: 


L = w ( J ) ; 



C FORMAT */ 
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02^2 V = a; 

0243 DO KK = 1 TO L/8 +1; 

0244 MSK = 'SCX; 

0245 NN = (KK-1)*8; 

0246 IF (NN+8) > L THEN V = L-NN; 

0248 T2 = 0; 

0249 DO JJ=1 TO V; 

0250 LL = NN+JJ+I-l; 

0251 Tl = IMAGE(LL) ; 

0252 IF TI = •!• THEN T2 = T2 I MSK; 

0254 MSK = r'SK/2; 

0255 END; 

0256 CDATACKKI = T2; 

0257 ENID; 

0258 GO TO INCRI ; 

0259 HIN: L = W( J) ; 

0260 V = (L-l)/2 +1; 

0261 00 KK = 1 TO V; 

0262 JJ = 2*KK+I-2; 

0263 Tl = IMAGE(JJ); 

0264 JJ = JJ+l; 

0265 T2 = IMAGE(JJ) ; 

0266 VI =(T1 Ce 'F0'X)/16; 

0267 Tl = Tl C 'OF'X; 

0268 Tl = (T1+V1*3)*16; 

0269 V2 =(T2 &£ 'F0'X)/I6; 
027C T2 = T2 Z 'OF'X; 

0271 T2 = T2+V2*3+T1 ; 

0272 COATA(KK) = T2; 

0273 ENID; 

0274 GOTO INCRI; 

0275 FIM: L = W( J) ; 

0276 R3 = L-1; 

0277 R4 = ADDR( IMAGF)+I-1; 

0278 SIGN ^ 'FC'X; /* INITIALIZE SIGN POSITIVE */ 
027P SKPP: IF R3<0 THEN DO; 

0?"1 R3=0; 

0?P2 GO TO SETF; 

0?P3 END; 

n^84 IF C = • • THEN on; /* SKIP LEADING BLANKS ♦/ 

0?P6 R4 = R4+1; 

0?n7 R3 = P3-1; 

0?fin GO TC SKPB; 

07P9 END; 

0?qr IF C = •+• THEN GO TC SKPSGN; 

n?Q? IF C = •-• THEN 00; /* IF MINUS SIGN IS PRESENT */ 

0?o4 SIGN = 'FD'X; /* SFT MINUS SIGN MASK */ 

0?°'^ SKPSGN: R4 = R4+1; /* PCSITION PAST SIGN CHAP */ 

0796 R3 = R3-1; 

0?'37 END; 

0798 PACKER: GFN( PACK DEC ( 8 ) , ( 0, 4 ) ) ; 

02oq IF 03>i5 THEN DO; /* CAN'T PACK MORE THAN 16 DIGITS */ 

0301 R4=R4+R3-15; /* MOVE STARTING ADDR TO THE RIGHT */ 

0302 R3=15; 
n^n-:>. END; 
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0304 
0305 
0306 
0307 
0308 

0310 
0312 
0313 
0314 

0315 
0317 
0318 
0319 
0320 
0321 
0323 
0325 
0326 
0327 
0328 
032"; 
0330 
0332 
0333 
0334 
0335 
0336 

0337 

0338 
033<5 
0340 
0341 
0342 
0344 
0345 

0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0360 
0362 
0363 



EN(EX 3, PACKER ) ; 

EN(OI DEC+7,X«0F' 

EN(NC DEC+7,SIGN 

EN(CVB 3, DEC ); 



); 

INSERT PROPER SIGN ); 



SETF; 



TOUT; 
TIN: 



IF D(J) > 16 THEN FF = R3; 

ELSE IF C(J) > 8 THEN FH = R3; 
ELSE PI = R3; 

GO TO INCRI; 

DO KK=2 TO TAB(l)+l; /* SEARCH TAB TABLE 
IF I<=TAB(KK) THEN DO; 

I*=TAB(KK) ; 
GO TO NDITM; 

end; 



END; 

IF OPT=i; 

IF func=; 



2 THEN GO TO GETAB; /* FALL THRU IMPLIES SKIP 
2 THEN DO; /* PUT (NOT STRING) 

CALL PRINT(BUFR); 
BUFR=« • ; 
I=TAB(2) ; 
END; 
ITM; 

2 THEN DO; /* GET (NOT STRING) 

CALL READ(BUF) ; 
I=TAB(2) ; 
END; 
GO TO NDITM; 

/* USER DEFINED EDIT CONVERSION 
PU=PUP; 
0D=DO+l; 
R=ARG(DC 

L=s + i ; 

CALL USE 

l=L-S; 

; IF ND(K) 



GO TO ND 
GETAB: IF FUNC= 



UOUT; 
UIN: 



NDITM 

ERRl: 
ERR: 

G 
ERA:G 
G 
G 
G 

G 
G 



); 



/* BUMP TO NEXT ARGUMENT 
/* GET ADDRESS OF DATA ITEM 
/* GET ADDRESS OF FIELD IN STRING 
R(L,W( J) ,0( J) ,R) ; /* PASS INFORMATION TO USER 
/* UPDATE I ( USER SHOULD HAVE UPDATED L) 
= THEN GO TO TSTK; 
ELSE GO TO ITER; 



*/ 



*/ 



*/ 



*/ 
*/ 
*/ 
*/ 
*/ 



ERMSG(2:32)='AN ILLEGAL FORMAT ITEM TYPE 
GO TO ERROR; 
EN(USING *,15 ) ; 

12,S)AD01 ); 

13,aSAVC01) ; 

11,=A( EOIT+6) 



EN(L 
EN(LA 
EN(L 
EN(DROP 



I ; 



15 



) ; 



FRMSG(2: 32)='A PROGRAM ERROR, TYPE * 



EN(SR 
ENdC 



) ; 



) ; 



3,3 
3,7( 1) 
R3 = R3 + 1; 
ERMSG(24)=HEX(R3) ; 
ERROR: CALL PR INT( ERMSG) ; 

IF FUNC=1 THEN BUFR=' • ; 
PLOOP:IF I>120 THEN 00; 

BUF( l:120)=IMAGE; 
CALL PRINKBUFR) ; 
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0364 




BUFR=« • ; 


0365 




1=1-120; 


€366 




GO TO PLGQP; 


0367 




END; 


0368 


BUFd 


: I ) = I MAGE; 


0369 


CALL 1 


'RINT(BUFR); 


0370 


CALL CLOSE; 


0371 


EPI:GEN(IC 


2,XXAPICA ); 


0372 


GENCSLL 


2,24 ); 


0373 


GEN(MVI 


XXAPICA,X«00') ; 


0374 


GEN(L 


1,XXAPICA J; 


0375 


GEN(SVC 


14 ) ; 


0376 


GEN(SP^1 


2 ) ; 


0377 


END; 
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184 



370 



ARC 

BIN 

BLANKS 

POUT 

BUF 

BUFR 

C 

CC 

CCTL 

CDATA 

CIN 

CLFAR 

CLOSE 

COUT 



(2A)» STATIC, LOCAL, POINTEROl), INTERNAL, BOUND ARY( WORD, 1) 
121 

STATIC, LOCAL, LABEL, INTERNAL 
237, 2 

STATIC, LOCAL, LABEL, INTERNAL 
151, 2 

(50), BASED, FIXEDOl), INTERNAL, BCUNOARY( WORD, 1 ) 
6, 10, 38, 96, 338 

STATIC, LOCAL, LABEL, INTERNAL 
241, 2 

IN WKS, CHARACTER(120), INTERNAL, BOUNDARY ( BYTE, 1 ) 
140 

STATIC, LOCAL, LABEL, INTERNAL 
155, 2 

IN BUFR, CHARACTER(120), INTERNAL, BOUNDARY ( BYTE, 1 ) 
22, 34, 112, 215, 220, 227, 231, 332, 362, 36<B 

STRLCTURE, STATIC, LOCAL, CH AR ACTER ( 12 1 » , INTERNAL, BOUNDARY (WORD , 1 ) 

17, 83, 104, 105, 124, 126, 135, 136, 144, 145, 213, 325, 326, 359, 363, 364, 36'; 

BASED, CHARACTER(l), INTERNAL, BOUNDARY ( BYT E, 1 ) 
284, 290, 292 

STATIC, LOCAL, CHARACTER ( 1 ) , INTERNAL, BOUNDARY ( BYTE, 1 ) 
210, 214, 216 

IN BUFR, CHARACT£R( U , INTERNAL, BOUNDARY ( BYTE , 1 ) 
214 

STRUCTURE, BASED, CHARACTER(4 ) , INTERNAL, BOUND ARY( WORD, I ) 
153, 163, 179, 239, 256, 272 

STATIC, LOCAL, LABEL, INTERNAL 
223, 2 

STATIC, LOCAL, LABEL, INTERNAL 
184 

STATIC, NONLOCAL, ENTRY, EXTERNAL 
370 

STATIC, LOCAL, LABEL, INTERNAL 
129, 2 



IN FORMAT, PCINTER(8), INTERNAL, BOUNDARY ( BYTE, 1 ) 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

57, 187, 308, 310, 340 

1 DATA PARAMETER, FIXEDOl), INTERNAL, BGUNDARY( WORD, 1 ) 

2, 2, 14, 19, 24, 28 

35 DO STATIC, LOCAL, FIXEOOl), INTERNAL, BCUNDARY (WORD, 1 ) 

35, 39, 95, 95, 96, 337, 337, 338 

2 DEC STATIC, LOCAL, CHARACTER ( 8) , INTERNAL, BCUNDARY ( DWORD, 1) 

1 EDIT STATIC, NONLCCAL, ENTRY, EXTERNAL 

1 

84 EPI STATIC, LOCAL, LABEL, INTERNAL 

84, 371 

34R ERA STATIC, LOCAL, LABEL, INTERNAL 

348 

2 ERMSG STATIC, LOCAL, CHARACTERt 12 1 ) , INTERNAL, BOUNDARYIBYTE, 1 ) 

88, 345, 352, 356, 357 

345 ERR STATIC, LCCAL, LABEL, INTERNAL 

345, 2, 2, 2 

89 ERROR STATIC, LCCAL, LABEL, INTERNAL 

89, 346, 357 

119 ERRl STATIC, LOCAL, LABEL, INTERNAL 

119, 345 

2 FF IN CDATA, FIXEDOl), INTERNAL, BOUNOARY( WORD, 1) 

7, 11, 189, 309 

2 FH IN FF, FIXEDdS), INTERNAL, BCUNDARY( HWORC, 1) 

191, 311 

2 FIN STATIC, LOCAL, LABEL, INTERNAL 

275, 2 

(16), STATIC, LOCAL, P0INTER(8), INTERNAL, BOUNDARY( BYTE, 1) 

58, 76, 93 

PARAMETER, CHARACTER( 256) , INTERNAL, BOUNDARY ( BYTE, 1 ) 
2, 2, 14, 19, 24, 28, 42 

IN TABLE, (120), CHARACTER(3) , INTERNAL, BCUNOARY(WORD, 1 ) 

STATIC, LOCAL, LABEL, INTERNAL 
187, 2 

FUNC STATIC, LOCAL, FIXED(31), INTERNAL, BCUNDARY (WORD, 1 ) 

15, 20, 25, 29, 32, 82, 99, 122, 133, 139, 142, 211, 218, 226, 229, 323, 330, 358 



2 


FIRST 


1 


FMT 


2 


FORMAT 


2 


FOUT 
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19 
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28 


GETS 
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ATTRIBUTE AND CROSS REFERENCE TABLE 

STATIC, NONLOCAL, ENTRY, EXTERNAL 
1'3 

STATIC, LOCAL, LABEL, INTERNAL 
322, 33P 

STATIC? NONLOCAL, ENTRY, EXTERNAL 
28 

2 HEX STATIC, LOCAL, CHARACTER ( 16 ) , INTERNAL, BOUNDARY ( BYTE, 1 ) 

181, 184, 356 

2 HIN STATIC, LOCAL, LABEL, INTERNAL 

259, 2 

2 HCUT STATIC, LOCAL, LABEL, INTERNAL 

175, 2 

2 I REGISTER(2), FIXED(31), INTERNAL, BOUNDARY (WflRD, 1 ) 

50, 102, 106, 110, 113, 128, 132, 140, 149, 152, 153, 172, 173, 203, 205, 206, 206 
208, 222, 225, 235, 238, 239, 250, 262, 277, 315, 317, 327, 333, 339, 341, 360 
365, 365, 368 

2 IMAGE BASED, CHARACTER ( 120 ) , INTERNAL, BOUNDARY ( BYTE , 1 ) 

140, 153, 173, 205, 239, 251, 263, 265, 277, 362, 368 

2 IMDD (16>,i STATIC, LOCAL, P0INTER(8), INTERNAL, BOUNDARY( BYTE , 1 ) 

57, 75, 98 

154 INCRI STATIC, LOCAL, LABEL, INTERNAL 

154, 174, 206, 240, 258, 274, 313 

208 ISET STATIC, LOCAL, LABEL, INTERNAL 

208, 217, 221 

51 ITFR STATIC, LOCAL, LABEL, INTERNAL 

51, 61, 66, 78, 344 

2 J REGISTER(5), FIXEDOl), INTERNAL, BCUNDARY( WORD, 1 ) 

9, 10, 11, 43, 47, 51, 51, 52, 56, 57, 59, 65, 74, 102, 110, 125, 129, 151, 156 
175, 187, 202, 223, 237, 241, 259, 275, 308, 310, 340, 340 

2 JJ STATIC, LOCAL, FIXfcD(31), INTERNAL, BOUNDARY ( V/ORD, 1 ) 

162, 165, 178, 181, 182, IP?, 184, 249, 250, 26?, 263, 264, 2<:4, 265 

2 K STATIC, LOCAL, FIXEDOll, INTERNAL, BOUNDARY (WORD, 1 ) 

49, 55, 55, 56, 57, 58, 59, 60, 65, 70, 71, 71, 73, 73, 74, 75, 76, 93, 98, 342 

2 KK STATIC, LCCAL, FIXEDOl), INTERNAL, BCUNDARY ( V^ORD , 1 ) 

157, 159, 163, 177, 178, 179, 243, 245, 256, 261, 262, 272, 314, 315, 317 

2 L STATIC, LCCAL, FIXED(31), INTERNAL, BCUNDARY ( VJORD , 1 ) 
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DCL'D IN NAME ATTRIBUTE ANC CROSS REFERENCE TABLE 

125, 129, 131, 132, 141, 146, 146, 149, 151, 152, 153, 156, 157, 160, 161, 172 

173, 175, 176, 187, 188, 190, 202, 203, 204, 206, 223, 225, 228, 232, 232, 235 

237, 238, 239, 241, 243, 246, 247, 259, 260, 275, 276, 339, 340, 341 

218 LIN STATIC, LOCAL, LABEL, INTERNAL 

218, 2 

131 LL STATIC, LOCAL, FIXED(31), INTERNAL, BCUND ARY (WORD , 1 ) 

131, 140, 165, 167, 168, 250, 251 

122 LOUT STATIC, LOCAL, LABEL, INTERNAL 

122, 2 

158 MSK STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNDARY (WORD, 1 ) 

158, 164, 169, 169, 244, 253, 254, 254 

172 MVB STATIC, LOCAL, LABEL, INTERNAL 

172, 186 

7 N STATIC, LOCAL, FIXED(31), INTERNAL, BOUNDARY ( WORD , 1 ) 

7, 8, 9, 41, 128, 129, 130, 222, 223, 224 

2 ND (16), STATIC, LCCAL, PCINTER(8), INTERNAL, BOUNDARY ( BYTE , U 

60, 65, 342 

123 NDITM STATIC, LOCAL, LABEL, INTERNAL 

123, 207, 209, 212, 219, 318, 329, 335, 342 

159 NN STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNDARY (WORD, 1 ) 

159, 160, 161, 165, 245, 246, 247, 250 

? OPT STATIC, LOCAL, FIXED(31), INTERNAL, BOUNDARY ( WORD, 1 ) 

16, 21, 26, 30, 82, 100, 120, 321 

2 P STATIC, LOCAL, PCINTEROl), INTERNAL, BOUNDARY (WORD, 1 ) 

2, 42, 46 

29R PACKER STATIC, LCCAL, LABEL, INTERNAL 

298 

STATIC, LOCAL, CHARACTE R ( 16 ) , INTERNAL, BOUNDARY ( BYTE , 1 ) 
194 

STATIC, LOCAL, POINTEROl), INTERNAL, BOUNDARY (WORD, 1 ) 

STATIC, LOCAL, LABEL, INTERNAL 
218, 2 

360 PLOOP STATIC, LCCAL, LABEL, INTERNAL 

360, 366 

2 POUT STATIC, LOCAL, LABEL, INTERNAL 

210, 2 



R 


PACKER 


2 


PATTERN 


2 


PERR 


2 


PIN 
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ATTRIBUTE AND CROSS REFERENCE TABLE 

STATICt NONLOCAL, ENTRY, EXTERNAL 

83, 104, 124, 135, 144, 213, 325, 357, 363, 369 

STATIC, LOCAL, LABEL, INTERNAL 
18, 23, 27, 31 

2 PU STATIC, LOCAL, PCINTER(31), INTERNAL, BCUNDARY(WORD, 1 ) 

2, 336 

2 PUP BASED, POINTEROl), INTERNAL, BCUNDARY ( WORD, 1 ) 

336 

14 PUT STATIC, NONLOCAL, ENTRY, EXTERNAL 

14 

24 PUTS STATIC, NONLOCAL, ENTRY, EXTERNAL 

24 

2 PI IN FH, P0INTER(8), INTFRNAL, BCUNDARY ( BYTE, 1 ) 

192, 312 

2 Q STATIC, LOCAL, PCINTER(3U, INTERNAL, BCUNDARY ( WORD, 1 ) 

2 

2 R STATIC, LOCAL, P0INTER(31), INTERNAL, BCUNDARY (WORD, 1 ) 

2, 2, 6, 10, S6, <38, 98, 338, 340 

22 READ STATIC, NONLOCAL, ENTRY, EXTERNAL 

22, 112, 220, 227, 231, 332 

2 REP (16), STATIC, LOCAL, P0INTEP(15), INTERNAL, BOUNDARY ( HWORD, 1 ) 

56, 70, 73, 73 

2 R3 REGISTER(3), FIXED(31), INTERNAL, BCUKOARY ( WCRD, 1 ) 

18«l, 191, 192, 276, 279, 281, 287, 287, 296, 296, 299, 301, 302, 309, 311, 312 
35 5, 35 5, 3 56 

2 R4 REGISTER(4), PGINTEROl), INTERNAL, BCUNDARY ( WORD, 1 ) 

2, 277, 286, 286, 295, 295, 301, 301 

2 S STATIC, LOCAL, PCINTEROl), INTERNAL, BCUNDARY (WORD, 1 ) 

2, 34, 38, 339, 341 

46 SCAN STATIC, NONLCCAL, ENTRY, EXTERNAL 

46 

282 SETF STATIC, LOCAL, LABEL, INTERNAL 

282, 308 

2 SIGN STATIC, LOCAL, CHARACTER(l), INTERNAL, BOUNDARY( BYTE, 1) 

278, 294 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERtNCF TABLE 

2 SIN STATIC, LOCAL, LABEL, INTERNAL 

21fi, 2 

279 SKPB STATIC, LOCAL, LABEL, INTERNAL 

279, 288 

291 SKPSGN STATIC, LOCAL, LABEL, INTERNAL 

2S1, 295 

2 SHUT STATIC, LOCAL, LABEL, INTFRNAL 

211, 2 

201 SP STATIC, LOCAL, LABEL, INTERNAL 

201 

? SPCE IN WKS, CHARACTFRdPO) , INTFRNAL, flCUNDARY ( BYTE, H 

? START (16), STATIC, LOCAL, PniNTFk(8), INTFRNAL, ROUNDARY( BYTE , 1 ) 

59, 74 

? T IN FORMAT, CHARACTFR(l), INTFRNAL, BGUNDARY ( PYT F , 1) 

44, 52 

2 TAB (64), STATIC, LOCAL, PrilNTFR(H), INTFRNAL, BOUNDARY ( BYTF, 1 ) 

R, 11, 314, 315, 317, 32 7, 33 3 

2 TAbLfc • STRUCTURt, BASED, CHARAC I L k ( 480 ) , INTFRNAL, BfJUNDAP Y ( WORD , I ) 

4 TARSFT STATIC, NONLCCAL, FNTRY, FXITRNAL 

4 

2 TIN STATIC, LOCAL, LABFl, INTIRNAL 

314, 2 

2 IMPS IN WKS, CHARACTFR( 16) , INTFRNAL, bnUNDA«Y ( BYT F , 1 ) 

167, 168, 173, 181, 184, 194, 205 

2 TOUT STATIC, LOCAL, LARfL, INTTkNAl 

3 14,2 

22P, TSTC STATIC, LOCAL, lABFl , IMFkNAl 

228, 233 

150 TSTI STATIC, LOCAL, LABFL, INTFkNAL 

150, 207, 236 

70 7STK STATIC, LfJCAL , LABFL, INTTkNAL 

7C, 343 

127 TSTL STATIC, LOCAL, LABFL, IMIkNAL 

127, 141, 147 

2 Tl STATIC, LOCAL, P0irJlFk(8), IMIkKAl, FinuflG AH V ( f'.YT ( , 1 ) 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

52, 53, 63, 68, 80, 86, 91, 118, 120, 120, 121, 163, 164, 164, 166, 179, 180, 18 
251, 252, 263, 266, 267, 267, 268, 268, 271 

2 T2 STATIC, LOCAL, PCINTER{8), INTERNAL, BOUNDARY( BYTE, 1 ) 

180, 181, 183, 184, 248, 253, 253, 256, 265, 269, 270, 270, 271, 271, 272 

2 UIN STATIC, LOCAL, LABEL, INTERNAL 

336, 2 

2 UOUT STATIC, LOCAL, LABEL, INTERNAL 

336, 2 

2 USER BASED, ENTRY, INTERNAL 

340 

2 V STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNDARY (WORD, 1 ) 

155, 161, 162, 176, 177, 242, 247, 249, 260, 261 

2 VI STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNDARY (WORD, 1 ) 

152, 153, 172, 173, 203, 205, 238, 239, 266, 268 

2 V2 STATIC, LOCAL, FIXED(31), INTERNAL, BOUNDARY { WORD , 1 ) 

204, 205, 269, 271 

2 W IN FORMAT, PCINTER(8), INTERNAL, BOUNDARY ( BYTE, 1 ) 

56, 65, 102, 110, 125, 129, 151, 156, 175, 202, 223, 237, 241, 259, 275, 340 

2 WKS STRUCTURE, STATIC, LOCAL, CHAR ACTER( 256 ) , INTERNAL, BOUNDARY(WORD, 1 ) 

2 XIN STATIC, LOCAL, LABEL, INTERNAL 

222, 2 

2 XOUT STATIC, LOCAL, LABEL, INTERNAL 

128, 2 

2 XXAPICA STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNDARY ( WORD, 1 ) 

*** PROC. EDIT HAD NO ERRORS 
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0001 SCAN: PROC(Q); 

0002 DCL (PtQ) PTRt 

C CHAR(I) CTL(P) f 
I TABLE(120), 

2 T CHAR( 1) , 

2 W PTR(8) » 

2 D PTR(8) , 
( ITE^,REPLrBLNKS,NUM) ENTRY INTERNAL, 
R4 REGISTER(4) , 
R3 REGISTERO) , 

( I, J, K, LEVEL, N, TRUE) FIXEDOl), 
TC CHAR( 1) , 









DEC 


CHAR(8) BDY(C^.ORD), 










JJ 


PTR(8) 


f 










TT 


CHAR(ll) INIT( 'ABFHUXCSPTLM ; 


0003 






RESTRICT{3,4); 






0004 






I = 1; 








0005 






p=q; 








0006 






T(l) = 


•CO'X; 






0007 






TABLE(2 


:120) = 


= TABLE(l:119) ; 






*♦ 


W06 


** DIMENSICNEO ITEM NOT SUBSCRIPTED 




** 


W06 


*♦ DIMENSIONED ITEM NOT SUBSCRIPTED 


0008 






LEVEL=0 


; 






0009 


LIST: 


CALL REPL; 


/* SCAN 


REPLICATICN FACTOR, IF ANY 


0010 






IF C -= 


• ( • THEN DO; 


/* IF NOT A GROUP 


0012 










CALL ITEM; 


/* SCAN FORMAT ITEM 


0013 










GO TO IFEND; 


/* TEST FOR END OF LIST 


0014 










END; 




O015 






T(I)=C; 






/* GROUP BEGIN, SET TYPE CODE 


0016 






LEVEL = 


LEVEL+l; 


/* PUSH DOWN GROUP LEVEL 


0017 






W(I) = 


LEVEL; 




/* PUT LEVEL IN GROUP FORMAT 


0018 






1=1+1; 








O019 






P=P+l; 






/* ADVANCE POINTER 


0020 






GO TO LIST; 




/* SCAN CONTENTS OF GROUP 


0021 


IFENO 


:CALL BLNKS; /♦ SCAN OFF BLANKS, LOOK FOR CCMNA, PERICD, OR •) 


0022 






IF C=' ) 


' THEN 


DC; 


/* END OF GROUP 


0024 










T(I)=C; 




0025 










w(I)=level; 




0026 










LEVEL=LEVEL-1 ; 


/* POP UP GROUP LEVEL 


0027 










1=1+1; 




0028 










P=P+1; 




0029 










CALL BLNKS; 




0030 










IF LEVEL<0 THEN 


GG TO SERR; /* UNMATCHED PARENS 


0032 










GCTO IFEND; 




0033 










END ; 




O034 






IF C=' , 


• THEN 


DC; 


/* FORMAT ITEM SEPARATOR 


0036 










P=P+l; 




0037 










GC TO LIST; 




0038 










END; 




0039 






IF C='. 


• THEN 


DC; 


/* END CF FORMAT LIST 


0041 


LISTEND: 




T(I)='.«; 




0042 










0=ADDR(TABLE) ; 






*♦ 


W06 


** DIMENSIONED ITEM NOT SUBSCRIPTED 


0043 










RETURN; 




C044 










END; 





*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 

*/ 
*/ 
*/ 
*/ 



*/ 



*/ 



*/ 



*/ 
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0045 
0046 
0047 
0048 
0049 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0061 
0062 
0063 
0064 
0065 
0067 
0068 
0069 
OO70 
0071 
0072 
0073 
0074 
0076 
0077 
0078 
0C79 
0080 
OOPl 
0083 
0085 
0086 

008 8 
0089 
C0«5G 

009 1 
0092 
0093 
009A 
0095 
0096 
0097 
C09P 
0099 
OlOO 
0101 
0103 
010^ 
0105 
0106 
0107 



SERR; 



BLNKS 
SKPB: 



T(i)=«?' ; 
1=1+1; 

GO TO listend; 
; PROC; 
IF c=' • then DO; 

P=P+l; 



/* set scan error cope 

/* terminate scan 
/* scan off blanks 



page 
*/ 






93 



/♦ SCAN A number AND CONVERT IT 

/* ASSUME NUMBER IS PRESENT 



DEC(8) ,0(0,4) ) ; 



GO TO SKPB; 

END; 
END; 
NUM: PROC; 

TRUE=l; 

CALL BLNKS; 

TC = C £ • • ; 

IF TC -.= '0* THEN GO TO FLSE; 

R4=P; 

DO K=l TO 256; 

P=P+l; 

TC = CG'O* ; 

IF TC = '0« THEN GC TO LOOPEND; 
R3=K-l; /* GET LENGTH MINUS ONE 

GEN(EX 3, PACKER ); 
GEN(CVB 3, DEC ); 

N=R3; 

CALL FSLNKS; 
RETURN; 
PACKER: GEN(PACK 
LOOPEND:;END; 
FLSE: TRUE=0; 
N=0; 
END; 
REPL: PROC; 

CALL NUM; 

IF TRUE -= 1 THEN DC; 

IF C='D' THFN DO; 

P=P+l; 

IF C='0' THEN P=P+1; 

P=p-l; 

J=I; 

CALL ITEM; 

T( J)='*' ; 

END; 
RETURN; 
END; 
T ( I ) --= • « • ; 
W ( I ) = N ; 
1=1+1; 

END; 
ITEM: PROC; 

DO JJ=1 TO 11; 

IF C=7T(JJ) THEN DO; 

T(n=JJ; 
GC TO BMPP; 
END; 
END; 

T ( I ) =C ; 



*/ 
*/ 



*/ 



/* SCAN REPLICATION FACTCR, IF ANY 



*/ 



/* SCAN FORMAT ITEM 



*/ 
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0108 


BMPP: 


P=P+l; 


0109 




CALL BLNKS; 


0110 




IF C -.= •( • THEN GO TO END 


0112 




P=P+l; 


0113 




CALL NUM; 


0114 




W(I)=N; 


0115 




CALL BLNKS; 


0116 




IF C=' , • THEN DO; 


0118 




P = P+l; 


0119 




CALL NUM; 


0120 




D(I )=N; 


0121 




CALL BLNKS; 


0122 




END; 


0123 




IF C = • ) • THEN P = P+l; 


0125 




ELSE DO; 


0126 


ITMERR: 1=1+1; 


0127 




T(I)='?'; 


0128 




END; 


0129 




CALL BLNKS; 


0130 


ENDITM: 1=1+1; 


0131 




END; 


0132 




END; 



/* S OR P FORMAT ITEM (NO W /D */ 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

2 BLNKS STATIC, LOCAL, ENTRY, INTERNAL 

21, 29, 48, 57, 71, 109, 115, 121, 129 

lOA BMPP STATIC, LOCAL, LABEL, INTERNAL 

104, 108 

2 C BASED, CHARACTER(l) , INTERNAL, BCUNDARY ( BYTE, 1 ) 

10, 15, 22, 24, 34, 39, 49, 58, 64, 83, 86^ 101, 107, 110, 116, 123 

2D IN TABLE, P0INTER(8), INTERNAL, BOUNDARY ( BYTE, 1 ) 

120 

2 DEC STATIC, LOCAL, CHARACTER ( 8 ) , INTERNAL, BCUNDARY ( DWORD, 1 ) 

111 ENDITM STATIC, LOCAL, LABtL, INTERNAL 

111, 130 

60 FLSE STATIC, LOCAL, LABEL, INTERNAL 

60, 76 

2 I STATIC, LOCAL, FIXEOOl), INTERNAL, BCUNDARY ( WORD , 1 ) 

4, 15, 17, 18, 18, 24, 25, 27, 27, 41, 45, 46, 46, 89, 95, 96, 97, 97, 103, 107 
114, 120, 126, 126* 127, 130, 130 

13 IFEND STATIC, LOCAL, LABEL, INTERNAL 

13, 21, 32 

2 ITEM STATIC, LOCAL, ENTRY, INTERNAL 

12, 90, 99 

126 ITMERR STATIC, LOCAL, LABEL, INTERNAL 

126 

2 J STATIC, LOCAL, FIXEOOl), INTERNAL, BCUNDARY (WORD , 1 ) 

89, 91 

2 JJ STATIC, LOCAL, P0INTER(8), INTERNAL, BOUNDARY ( BYTE, 1 ) 

100, 101, 103 

2 K STATIC, LOCAL, FIXED(31), INTERNAL, BCUNDARY (WORD, 1 ) 

62, 67 

2 LEVEL STATIC, LOCAL, FIXED(31), INTERNAL, BCUNDARY (WORD , 1 ) 

8, 16, 16, 17, 25, 26, 26, 30 

9 LIST STATIC, LOCAL, LABEL, INTERNAL 

9, 20, 37 

41 LISTEND STATIC, LOCAL, LABEL, INTERNAL 

41, 47 

66 LOOPEND STATIC, LCCAL, LABEL, INTERNAL 
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DCL'D IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

66, 74 

2 N STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNDARY (WORD, 1 ) 

70, 77, 96, L14, 120 

2 NUM STATIC, LOCAL, ENTRY, INTERNAL 

55, 80, 113, 119 



STATIC, LOCAL, POINTEROl), INTERNAL, BCUNDARY( WORD , 1 ) 

2, 5, 19, 19, 28, 28, 36, 36, 51, 51, 61, 63, 63, 85, 85, 87, 87, 88, 88, 108, 108 

112, 112, 118, 118, 124, 124 



73 PACKER STATIC, LOCAL, LABEL, INTERNAL 

73 

1 e PARAMETER, P0INTER(31), INTERNAL, BCUNDARY ( WORD , 1 ) 

2, 2, 5, 42 

2 REPL STATIC, LOCAL, ENTRY, INTERNAL 

9, 79 

2 R3 REGISTERO), FlXEOOl), INTERNAL, BOUNDARY (WORD, 1 ) 

67, 7C 

2 R4 REGISTER(4), FIXEOOl), INTERNAL, BCUNDARY( WORD, 1 ) 

61 

1 SCAN STATIC, NONLOCAL, ENTRY, EXTERNAL 

1 

31 SERR STATIC, LOCAL, LABEL, INTERNAL 

31, 45 

49 SKPB STATIC, LOCAL, LABEL, INTERNAL 

49, 52 

2 T IN TABLE, CHAR ACTER( 1 ) , INTERNAL, BOUND ARY ( BYT E , 1 ) 

6, 15, 24, 41, 45, 91, 95, 103, 107, 127 

2 TABLE STRUCTURE, (120), STATIC, LOCAL, CHARACTER ( 3 ) , INTERNAL, BOUNOARY( WORD, 1 ) 

7, 7, 42 

2 TC STATIC, LOCAL, CM ARACTE R( 1 ) , INTERNAL, BOUNDARY ( BYTE, 1 ) 

58, 59, 64, 65 

2 TRUE STATIC, LOCAL, FIXED(31), INTERNAL, BCUNDARY (WORD, 1 ) 

56, 76, 81 

2 TT STATIC, LOCAL, CHARACTE R( II ) , INTERNAL, BOUNDARY ( BYTE, 1 ) 

ICl 

2 W IN TABLE, P0INTER(8), INTERNAL, BOUNDARY ( BYT E, 1 ) 

17, 25, 96, 114 



BSL/7 SEPT67 ROUTINE TO SCAN FORMAT LISTS PAGE 97 

*** PROC. SCAN HAD 003 ERRORS 
*** THE FOLLOWING STATEMENT(S) HAD ERRORS 
0007,0007,0042 
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VII. APPENDIX I 



ERROR MESSAGE TABLE 



Srror Message Text 

No~DD~statement~for 
BSLIN. It cannot be 
opened. 


Name of library routine 
issuing message 

BSL OBJECT TIME I/O 


Page where 
message is 
explained 
7 

7 

7 
7 

7 

7 

7 
_ 

_ 


No DD statement for 
BSLOUT and BSLIN. 

Error on BSLIN. Data 

is not transrnitte(3. 

No DD statement for 
BSLOUT and error on 
BSLIN. 


BSL OBJECT TIME I/O 

BSL OBJECT TIME I/O 
BSL OBJECT TIME I/O 

BSL OBJECT TIME I/O 

BSL OBJECT TIME I/O 

BSL OBJECT TIME I/O 


No DD statement for 
BSLPUNCH. It cannot 

^§_OEened_^ 

No DD statement for 
BSLOUT and BSLPUNCH. 
They cannot be opened. 
Error on BSLPUNCH. 
Data is not transmitted. 


No DD statement for 

BSLOUT and error on 

BSLPUNCH. 

No DD statement for 

BSLOUT. 


BSL OBJECT TIME I/O 
BSL OBJECT TIME I/O 


Error on BSLOUT. 
2^t§_i§_Q2t_t:ransmitted, 
Illegal type speci- 
fications. No dump 
produced. 

Illegal address or 
length specification. 
Lower bound on target 
less than 1. 


BSL OBJECT TIME I/O 
PDUMP 

PDUMP 
SUBSTR 


7 

__ 

20 
34 


Upper bound on target 
less than lower. 


SUBSTR 


34 


Lower bound on source 
less than 1. 


SUBSTR 


34 


Upper bound on source 
less than lower. 


SUBSTR 


34 
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Lower bound G.r. DCL' D 


SQBSTR 


34 


length of target 
Lower bound G.r. DCL'D 


SUBSTR 


34 


length_of_source^ 

Illegal argument to 


SOBSTR 


34 


SQBSTR £gm 
Illegal type it is 


ERRINT 


50 


ignored. 




50 


Incorrect routine 


ERRINT 


count. 




75 


hn illegal format item 


EDIT 


lias occurred while 






attempting EDIT con- 






i/ersion 


EDIT 


_- _- 


Program error type * 


has occurred while 






attempting EDIT con- 






version. 




76 


Illegal format list 


EDIT 


syntax has occurred 






while attempting EDIT 






bonversion. 
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INTERRUPT HANDLER 



(BSL/10 Supplement to BSL Library Manual) 
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1. Function 

The interrupt handler is part of both the OS/360 and DOS version 
of the BSL library. It provides the following information on a 
program check. 

1). Type of interrupt and machine address. 

2) . A trace of all active save areas and the 
statement numbers for the call statements 
in the chain of active procedures. 

3) . An Abend dump. 

The user enables the interrupt handler by calling IKETRCII and 
disables the interrupt handler by calling IKETRCID. 

When an interrupt occurs several messages are printed. 

1). XXX... XXX INTERRUPT AT LOCATION YYYYYY. 
Where XXX. . .XXX is the type of interrupt 
and YYYYYY is the machine address of the 
interrupt. 

2) . A heading line: 

SAVE AREA TRACE STARTING WITH PROCEDURE 
THAT WAS INTERRUPTED. 

3) . The trace of the save area is then printed 
in the following format: 

SAVE AREA ADDRESS XXXXXX. LAST STATEMENT 
EXECUTED YYYYYY. 

Where XXXXXX is save area address in a 
hexidecimal YYYYY is a statement number 
of the last statement executed in the 
procedure. 

4). An ABEND dump is then given. For OS, a 
users code of 444 is given. 

After printing, control returns to the operating system. 
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Notes for DOS Users: 

1. After calling IKETRCII any previously 
issued STXIT macros will be disabled. 

2. No STXIT macro should be issued between 
the call to IKETRCII and the call to 
IKETRCID. 

3. The BSL Library routines PDUMP, EDIT and 
SUBSTR issue STXIT macros. Calling one 
of those routines after calling IKETRCII 
will disable the interrupt handler. 

2. Entry Points and Functions 

A. IKETRCII. 

This entry point issues the SPIE or STXIT 
macro to field program check interrupts. 
It saves the program mask and for OS, the 
address of PICA. 

The entry point has one argument. It is 
the displacement from the start of the 
procedures save area of the half word where 
the statement number will be saved. 

CALL IKETRCII (DISPLACEMENT) ; 

IKETRCII returns to the user's program. 

B. IKETRCID 

This entry point disables the interrupt 
handler. It restores system information 
such as the program mask and for OS the 
PICA. It returns to the user's program. 
It has no arguments. 

CALL IKETRCID; 

For OS, any SPIE macro issued prior to 
the call of IKETRCII will be in effect 
after IKETRCID has been executed. 
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3. Example 

$TRACE,ASSEM 

A: PROCEDURE; 

$TRACE ON /*Turn Trace ON*/ 

CALL IKETRCII(2); /*Enable Interrupt Handler*/ 



CALL IKETRCID; /*Disable Interrupt Handler*/ 
END ; 

TRACE must be given as one of the compiler options. The trace 
must be turned on prior to enabling the interrupt handler. If 
the trace option is not used, the interrupt handler gives no 
information other than a regular Abend dump. 
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